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FOREWORD 


These reports document the eighth baseline version (SA8) of the Scheduling 
Algorithm for Mission Planning and Logistics Evaluation (SAMPLE). Volume 
I is the Users' Guide for SAMPLE, Volume II documents the Mission Payloads 
(MPLS) subsystem, the primary computational portion of SAMPLE, and Volume 
III discusses the GREEDY algorithm, the technique used to solve a set 
covering problem and determine a traffic model. 
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DEFINITIONS 



Term 


Definition 


ETR launch 

A launch performed from the Eastern Test Range 

Feasible 

combination 

A collection of payloads that meet certain systen con- 
straints (e.g.. Shuttle welght-to-orbit capability) 

Flight 

schedule 

A traffic model to which Shuttle resources are assigned 

Load factor 

The maximum value of two ratios found by comparing actual 
welght-to-orbit of a mission to Its theoretical capability 
and the total cargo weight at landing versus the maximum 
allowed 

Mission 

type 

The Orbiter assignment for a payload. The payloads type 
either accompany the Shuttle to orbit (deployment), from 
orbit (retrieval), or both (In the case of attached and 
service payloads). 

MPLS 

The Mission Payloads Subsystem 

QMS fuel 

The fuel required for the Orbital Maneuvering System 

Payload 

One or more Integrated experiment packages and associated 
third stage(s), if any, or simply a third stage Itself 

Payload 

margin 

The minimum value of two calculations found by subtracting 
the total Shuttle weight at Insertion from its theoretical 
welght-to-orbit capability, and the total cargo weight at 
landing subtracted from the maximum allowed 

Payload 

type 

The mission type for a payload 

RCS fuel 

The fuel required for the Reaction Control System 

Traffic 

model 

A subset of the list of feasible combinations such 
that there are no redundant loads which can cover all 
the payloads. (The same payload is not assigned to 
two or more distinct flights.) 

TSV 

Third stage vehicle 

Up/down 

payload 

A payload that is deployed and retrieved in the same 
year 

WTR launch 

A launch performed from the Western Test Range 


r' 
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THE PAYLOAD DISCIPLINE CODES 


Symbol 

AS 

OP 

CN 

ST 

LS 

EO 

PL 

SS 

$P 

PH 

LU 

OA 

AP 

SO 

HE 

EP 

NN 


Experiment 

Astronomy 

Earth and Ocean Physics; same as EP 

Command and Navigation 

Space Technology 

Life Sciences 

Earth Observation 

PI anetary 

(undefi ned) 

Space Processing 

Physics 

Lunar 

Office of Applications 

Atmospheric 

Solar Physics 

High Energy Astropysics 

Earth and Ocean Physics 

Non-NASA 
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1. INTRODUCTION 


•'< ■■ * w jii ^ a yfflw y ' 


The Scheduling Algorithm for Mission Planning and Logistics Evaluation 
(SAMPLE) Is an Interactive computer program for automatically generating 
traffic models for the Space Transportation System (STS). The SAMPLE Is 
composed of three major subsyst«ns: the Mission Payloads (MPLS) program 
and the Set Covering Program (SCP). The MPLS program determines a set of 
payload combinations which satisfy various STS constraints, such as: the 
maximum we1ght-to*orb1t capability, cargo bay capacity. Reaction Control 
System (RCS) and Orbital Maneuvering System (OMS) fuel capacities, etc. 
The SCP forms a subset (traffic model) of the feasible payload combina- 
tions from MPLS such that a minimum number of Shuttle flights will trans- 
port all the specified peyloads without redundancies. 

The SAMPLE was written In FORTRAN V and was designed to execute on the 
UNIVAC 1100 series computers using the EXEC 8 operating system. The pro- 
gram was written to be used primarily In a demand (interactive) mode, but 
It may also be run In the batch mode. 


{ 


This document describes the Mission Pey loads Subsystem (MPLS) program and 
Includes a general and technical program description as well as subroutine 
documentation and program functional flow. 

The MPLS, a subsystem of the Scheduling Algorithm for Mission Planning and 
Logistics Evaluation (SAMPLE), was designed to generate a list of feasible 
combinations (LFC) from a payload model for a given calendar year. The 
Set Covering Algorithm (SCA), another subsystem of SAMPLE, uses the LFC to 
determine an optimum traffic model. 

This technique used by the MPLS to determine the validity of a combination 
Is based on payload sequence dependent and Independent constraint tests. 

The Independent constraints are performed first to eliminate those mis- 
sions which fall due to simple parameters tests; the dependent constraints 
are tested to determine the feasibility of the combination with respect to 
delta velocity (aV) requirements. The specific order of the tests tends 
to minimize the computer time required to examine the data. 

Since the MPLS began to evolve In 1973, the logic has been modified wher- 
ever necessary to Incorporate new requirements and capability. The changes 
significantly decrease program run time and Increase the number of feasi- 
ble solutions found. 
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2. PROGRAM DESCRIPTION 


2.1 GENERAL DESCRIPTION 

The MPLS generates and evaluates payload combinations from an Input pay> 
load model for a specific year. The feasibility of each combination Is 
evaluated by flight sequence tests, both dependent and Independent. The 
flight sequence Is a series of maneuvers designed to achieve the orbital 
requirements of each payload In the combination; Its validity Is contingent 
upon the accumulative Impact of the payload characteristics compared to 
the system ronstraints. A combination Is Infeasible when a constraint or 
set of constraints have been violated. 


2.1.1 Flight Sequence Independent Tests 

The flight sequence Independent tests are controlled by subroutine CPTEST. 
Tests are made for payload redundancy, mission type, discipline mix, 
weight, length. Reaction Control System (RCS) fuel, third stage vehicle 
(TSV) cargo capacity, and miscellaneous constraints. Each constraint Is 
a gross check of a combination against performance limits of the Orb Iter. 


2. 1.1.1 Payload Redundancy 

Each payload combination Is examined for redundant payloads, rejecting 
those combinations with duplicate payload names. Payloads are exempted 
from this test with the use of the flag IRPT (see Payload Model data). 


2. 1.1. 2 Mission Type 

Each combination's mission type Is compered to an Internal list, rejecting 
those that do not match. This test is optional. 


2. 1.1. 3 Discipline Mix 

The combinations discipline mix Is compared to an allowable list, re- 
jecting those that do not match. This test Is optional. 


2. 1.1. 4 Weight 

The total chargeable weight In the Orb Iter's cargo bay Is compared to a 
limit of 65,000 lb at launch and 32,000 lb at landing. The chargeable pay 
load weight Is composed of the Individual payloads (with TSV's If In- 
cluded) flown on the mission. A combination that exceeds the limit Is 
rejected. 
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2. 1.1. 5 Length 


The total length of the payloads at launch and landlno 1$ compared to a 
limit of 60 feet. A combination that exceeds the limits Is rejected. 


2. 1.1. 6 RCS Fuel 

The RCS fuel Is a function of the number of rendezvous. If more than 
9000 1b of fuel Is required, the combination Is rejected. 


2. 1.1. 7 TSV Cargo Capacity 

The total payload plus TSV length and Melght at launch and landing are 
compared against system limits. If a TSV cannot be found which meets the 
combination's requirements. It Is rejected. 


2. 1.1. 8 Miscellaneous Constraints 

The total number of payloads on a TSV must be less than four. Only one 
dedicated TSV payload Is permitted per combination. 


2.1.2 Flight Sequence Dependent Tests 

The flight sequence dependent tests are controlled by subroutine SOIL. 
These tests consider the AV fuel usage by using a form of the Ideal 
rocket equation as well as payload weight and length as a function of 
Its center -of -gravity (C6). The fuel requirements of the TSV are not 
known Initially, so the Orbiter and TSV are considered separately. The 
total TSV configuration Is then used as an Orbiter payload. 


2. 1.2.1 Orbiter Requirements 

The Orbiter has been designed to satisfy the requirements of nominal (low 
altitude) payloads: high altitude payloads are serviced by the use of a 
TSV. The TSV Is considered to be an Orbiter payload deployed at the first 
orbit or at an altitude of 150 miles (whichever is less) and retrieved at 
20 miles above the last Orbiter orbit. The Orbiter requirements are deter- 
mined by computing the orbit-to-orbit AV's, the TSV requirements, and the 
AV fuel used for deorbit. The fuel requirements may exceed the maximum 
Orbital Maneuvering System (OMS) main tank fuel capacity, so the OMS capa- 
bility may be extended by the use of up to three OMS kits. The maxlimim 
number of allowable OMS kits can be specified by the user. The use of OMS 
kits reduces the cargo bay capacity, as the dry weight of the kits at land- 
ing nnjst be Included with payload down wel^t, assuming that all OMS fuel 
Is exhausted. Furthermore, the OMS kits physically Intrude Into the cargo 
bay envelope. 
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2. 1.2. 2 TSV Requirements 


A combination requires a TSV if at least one payload has a desired orbit 
of 700 miles or more. The type of TSVs available are: 

a. Expendable - Used to deploy a payload but not retrieved 

b. Reusable • Used to deploy a payload and retrieved 

In making an assignment, the first TSV meeting all requirements is used, 
then the TSV requirements are included in the Orbiter's payload sequence. 
If the Orbiter's capability is exceeded, the next TSV is examined. If all 
available TSVs fail to meet the requirements of the payload sequence, the 
combination is rejected. 


2.2 TECHNICAL DESCRIPTION 


2.2.1 Analysis 

The solutions generated by the MPLS tend to compute the minimum AV for a 
particular mission without regard to payload type; the marginal cases may 
be rejected as only the Initial sequence is examined. (An exhaustive 
numeration technique has been inhibited in the current program version.) 
The AV computations are performed by the following techniques. 


2. 2. 1.1 Hohmarm Transfers 

The Hohmann transfer algorithm is used to compute the AV required to 
change orbits in all Instances except deorbit. The initial (insertion) 
transfer is made from an elliptical orbit; the other transfers are 
made to and from circular orbits. 


2.2. 1.2 Gnpirical Equation 

The deorbit is simulated by using an en^)irica1 formula which computes 
the deorbit AV from the inclination and altitude of the last parking 
orbit so as to satisfy reentry conditions. 

Fuel usage is computed for both the Orbiter and TSV by a form of the 
ideal rocket equations, incorporating AV requirements. 

The MPLS assumes a 20 ft/sec AV from the OMS for any rendezvous maneuver; 
hence, the best possible phasing required to accomplish the rendezvous 
is considered. This optimistic philosophy may be Justified because of 
the built-in program penalties: 

a. An OMS fuel reserve of 1660 lb is carried from insertion to landing. 
This reserve requires an additional 295 lb of fuel for a mission re- 
quiring a total AV of 1600 ft/sec. 


b. An RCS fuel reserve of 3400 1b Is carried from Insertion to landing. 
This reserve requires an additional 580 1b of fuel for a mission 
requiring a total 4V of 1600 ft/sec. 


2.2.2 Method of Solution 

The OrbIter/TSV mission Is composed of three distinct segments: 

a. Insertion of the Orbiter Into Initial parking orbit and deployment of 
the TSV 

b. OrbIter/TSV maneuvers performed In earth orbit 

c. Orbiter reentry 

The function of the trajectory calculations In the Is to compute the 

AV requirements for each segment. In general* the AV Is computed using a 

Hohmarm transfer algor 1t^ at the Insertion to parking orbit and maneuver 

phase; the reentry AV Is computed using an empirical equation (ref. 1). 

The specific algorithms for computing the AV are: 

a. Segment 1 - Entry point OVIPK of subroutine OLTAV Is used to compute 
the Alf required to transfer from Insertion ellipse to the Initial cir- 
cular parking orbit. The following heuristic Is used 

AV 3.35(H - 100) + 200 (fps) 
where H Is the parking orbit altitude 

b. Segment 2 - Functions OLTAV and entry point DVEL compute the AV be- 
tween two circular parking orbits. Co^utatlons are performed with 
conic equations. 

c. Segment 3 - Entry point DVOORB of subroutine OLTAV computes the de- 
orbit AV as a function of the altitude and Inclination of the last 
parking oru^t. 

The following heuristics are used depending on the last parking orbit alti- 
tude 


AV ■ 1.25H +132 H > 145 

• .638H > 222 110 < H < 145 

• 291 H < 100 


where H Is the circular parking orbit altitude prior to deorbit. 


The mass and length history computation requires discrete weight, length, 
and velocity changes at each mmteuver. The basic approach considers the 
total payload down (deorbit) and then computes the fuel requirement back- 
wards to Insertion. The equation used Is the ideal rocket equation 


Us « U£*e 


W/gIsp 
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where 


Ws » Weight at the start of the maneuver 

Wg = Weight at the end of the manuever 

g = Acceleration due to gravity 

Ijp * The specific impulse for the Orbiter OMS engines 

The total weight at landing is 

Wl = Wy + WrcS + WOMS + “KITS + PLq 

where 

Wy = Vehicle dry weight 

Wrcs = Weight of the RCS fuel reserve 

WqmS " Weight of the OMS reserve fuel 

Wkits = OMS kit dry weight 

PLq * Weight of the payload(s) carried down 

Once the weight of the vehicle is determined at insertion, the total 
weight of the OMS fuel is computed as 


WPUEL * Wi - Wy - Wup - W-fRcs 

v^ere 


W|jp = Weight of the Orbiter payloads at insertion, including the TSV, 
its fuel, and payloads 


WjRcs " Total weight of the RCS fuel used 
Wj * Weight of the vehicle at insertion 

Assuming that the OMS fuel is within the maximum 58350 (integral OMS tank 
+ 3 kits) lb allowed, the total weight of the vehicle must be readjusted 
to allow for OMS kits, if they are required. A kit is needed if the OMS 
fuel required exceeds 23340 lb (Table I) and the additional fuel used to 
carry the dry kit is computed as 


WqRY = Wkixs 


JOV/gIsp 


1 


and 


Wup * Wkits + wqry 
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where Tdv * total Orbiter delta velocity required. The down weight Is 
then adjusted as 

U 

n 

“down • Writs + wqry + wpiOi 


where Wp^Q^ > the weight of the 1th payload 


The length history Is maintained by the summation of the discrete length 
changes for each payload activity. The length of any QMS kits will re- 
duce the length available for tiie payloads. 

Both the total Insertion weight of the Orbiter and the total length re- 
quirements for the payloads must be reverified. The total insertion 
weight Is compared to the total welght-to-orbit capability of the Orbiter. 
The Insertion welght-to-orbit Is computed empirically as a function of the 
Initial payload orbit Inclination. 

When all other constraints have been met, then 1t Is necessary to determine 
If the cargo CG Is acceptable. This test Is optional. The basic form of 
, the equation used to compute C6 is 


CG 


N 

E 

Wi d + Cl + L«2 d + + Ci 


Wl 


where 

> Weight of the 1th payload in the cargo bay 
d * Distance from the front wall to the first payload 

&•] s Total length of the payloads and reserved gaps between payloads 

C{ » the CG of the 1th payload in the cargo bay 

The CG is tested against the cargo minimum and maximum length constraints 
to determine mission feasibility. Logic exists within the CG processor 
for rearranging the payloads In an attempt to satisfy CG constraints. 


TABLE I.- SHUTTLE CHARACTERISTICS 




DRY 

PROPELLANT 



LENGTH 

WEIGHT 

CAPACITY 

A V 

DESCRIPTION 

(PT) 

(LB) 

(LB) 

(FT/ SEC) 

MAIN OMS TANK 



23340 


1 OMS KIT 

9.42 

4100 

12500 


2 OMS KITS 

9.42 

5000 

25000 


3 OMS KITS 

9.42 

6100 

37500 


RCS MAIN TANK 



3974 


RCS TANK 2 



3400 


RCS SPILLOVER 



2000 


RESERVE OMS 

(DISPERSIONS 

+ RESIDUALS) 

1660 


AT LANDING 





OMS RENDEZVOUS 


UNIQUE FOR 



REQUIREMENTS 


EACH PAYLOAD 


20 

RCS RENDEZVOUS 
REQUIREMENTS 


1800 


20 


ORB ITER DATA 


LENGTO 

(FT) 

CARGO BAY (CAPABILITY) 60 


0V102 DRY WEIGHT 

0V099 DRY WEIGHT 

0V103 DRY WEIGHT 

SPECIFIC IMPULSE 

MINIMUM OMS LOAD FOR 
ABORT: 

ETR LAUNCH 
WTR LAUNCH 


WEIGHT 

(LB) 

65000 (MAXIMUM UP) 
32000 (MAXIMUM DOWN) 

178860 

173500 

175000 

313.2 SEC 


13500 

18700 
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3. PROGRAM USAGE 


3.1 INPUT DESCRIPTION 

Input to the MPLS is a subset of the input required for the SAMPLE. 
Information in this section supplements Volume I, SAMPLE User's Guide, 
as applied to the MPLS. Details of the TSV and payload data sets are 
provided. All input is represented as data card images, regardless 
of whether they originate on cards or line images from a demand terminal. 

The first user input, an executive request, identifies the payload model; 
the input format of the payload model is described in detail in table II. 
The remaining inputs specify user options. The user options are input, 
starting in column 1, as responses to prompts. Each prompt may be ex- 
plained in detail by entering a zero and a carriage return. A sample job 
stream is given in section 5.4. 


3.2 OUTPUT DESCRIPTION 


3.2.1 Normal Output 

The output of the MPLS can be classified as input data and trajectory 
data. The initial output consists of approximately three pages of 
information pertaining to the payload model and is optional. The next 
set of output pertains to the relationship of the payloads to their 
mission type, discipline mix code, the TSV, and the number of flights 
per year. 

The trajectory section prints the following parameters for feasible 
combinations: 

Flight number 

Launch site 

Payload identification number/name 

Orb iter sequence 

Inclination 

Total weight up/down 

Up/down length 

TSV name 

TSV sequence 

Altitude 
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Paiyload type 
Orb iter and TSV aV 
Number of QMS kits 
Load factor 
Payload margin 

Percentage used of the first OMS kit 

The total number of combinations generated is printed at the end of the 
trajectory section, as well as the number of feasible and infeasible 
combinations. The Feasible Mission File is also output; refer to table 
III. 


3.2.2 Abr.ormal Output 

Subroutine ERRPRT is referenced by the following diagnostic messages. 


Diagnostic Message Subroutine 

DOWN WEIGHT CONSTRAINT VIOLATED ERRPRT 

MISSION TYPE NOT ALLOWED ERRPRT 

NO FEASIBLE SEQUENCE FOUND ERRPRT 

NO TUGS SATISFY LENGTH AND WEIGHT CONSTRAINTS ERRPRT 

NUMBER OF PAYLOADS ON A TUG GREATER THAN 3 ERRPRT 

PAYLOAD lUi CAN ONLY BE ON A DEDICATED TUG ERRPRT 

PAYLOAD DISCIPLINE MIX TYPE NOT ALLOWED iiiiii ERRPRT 

THE RCSWT IS GREATER THAN THE CAPACITY FOR THIS CASE ERRPRT 

TOTAL LENGTH GREATER THAN BAY LENGTH, DOWN TOTAL 

LENGTH = r rrrr.rr ERRPRT 

TOTAL LENGTH GREATER THAN BAY LENGTH, UP TOTAL 

LENGTH = rrrrr.rr ERRPRT 

UP WEIGHT CONSTRAINT VIOLATED ERRPRT 

INCLINATION RANGE GREATER THAN .5 ERRPRT 
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3.3 PROGRAM UNITS 


English units of measure are used for the MPLS. Units given for altitudes, 
inclinations, AV, specific impulse, weight, and length are nautical miles 
(n.mi.), degrees (deg), feet/second (ft/s), seconds (sec), pounds (lb), 
and feet (ft). 


TABLE II.- PAYLOAD MODEL CARDS 


The first set of cards In the payload model Identifies the solid-propellant 
Interim Upper Stage (lUS) data. The second set of cards pertains to the 
Liquid-Propellant Upper Stage (LUS) data, and the remaining cards Identify 
individual payload characteristics. 


Card 

Word 

Symbol Type 

Units 

Format 

Column 

Description 

1 

1 

N 

I 

• 

Free 


Number of unique 
stages In the 
model 

2-L (L<15) 

1 

TISP 

R 

sec 

FIO.O 

1-10 

Specific impulse 
of the stage 


2 

TTSVWT 

R 

lb 

FIO.O 

11-20 

Total weight of the 
stage 


3 

FUEL 

R 

lb 

FIO.O 

21-30 

Total fuel available 
for the stage 


4 

TSVLN 

R 

ft 

FIO.O 

31-40 

Length of the stage 

L+1 

1 

NTSVS 

I 

— 

Free 


Number of I US 
vehicles to be used 
(NTSVS<10) 

L+2 

1 

N 

I 

- 

Free 

- 

Number of stages on 
the I US (1<N<S) 


2 

NUNQS(NSTVSil) 

I 

- 

Free 

- 

First stage Identi- 
fied by the first 
set of cards 


3 

NUNQS(NSTVSi2) 

I 

- 

Free 

- 

Second stage number 


N+1 

NUNQS(NSTVSiN) 

I 

- 

Free 

- 

Last stage number 


N+2 

YRAVAL 

I 

- 

Free 

- 

A two-digit number 


which represents the 
year of availability 
of this vehicle 
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TABLE II.- CONTINUED 

{^ The second set of cards pertains to the LUS vehicles. The order in which the 

data are input is the order each LUS is considered. For simplicity, the next 
card in the sequence is denoted as "k". 


Card 

Word 

Symbol 

Im 

Units 

Format 

Column 

Description 

k 

1 

N1 

1 


Free 

• 

Number of LUS 
vehicles to be 
input 

k+1 

1 

TU6LN 

R 

ft 

F10.3 

1-10 

Length of the, LUS 


2 

TU6WT 

R 

lb 

F10.3 

11-20 

Weight of the LUS 

to 

3 

TUGCAP 

R 

lb 

F10.3 

21-30 

Capacity of the LUS 


4 

TUG ISP 

R 

sec 

F10.3 

31-40 

Soecific impulse of 
the LUS 

k+Nl 

5 

TUGTYP 

I 

- 

12 

44-45 

The LUS type 
*1, expendable 
=3, reusable 


6 

YRAVAL 

I 

- 

12 

47-48 

First year available 
for the LUS 

k+Nl+1 

1 

NUMPL 

I 

- 

Free 

field 

- 

Number of payloads 
in the model 


2 

MKS 

I 


Free 


A flag specifying 
the internal units 
of the payload model 
=1, the units are 
in mks 

-2, the units are 
in fps 


TABLE II.- CONTINUED 


The rest of the cards are identified In sets of three and Identify Individual 
payload characteristics. 


Card Word 

Symbol 

Is 

Units 

Format 

Column 

Description 

1 1 

NUMB 

A 

* 

2A6 

4-15 

Payload alphanumeric 

Identification 

label 

2 

NOISP 

A 

- 

2A6 

16-27 

Payload discipline 

3 

NAME 

A 

- 

6A6 

28-63 

Payload description 

4 

LEN 

R 

ft 

F5.0 

64-68 

Total payload 
length, including 
the pallet and/or 
lab 

5 

WT 

R 

1b 

F6.0 

69-74 

Total weight of the 
payload at lift- 
off, including the 
pallet and/or lab, 
if applicable 

6 

wn 

R 

lb 

F6.0 

75-80 

Total weight of the 
payload at landing, 
including the pallet 
and/or lab, if appli- 
cable 

2 1 

01 AM 

R 

ft 

F4.1 

4-7 

Diameter of the 
payload 

2 

HA 

R 

n.ml . 

F9.0 

8-16 

Desired circular altitud« 

3 

INCL 

R 

deg 

F5.1 

17-21 

Desired inclination 

4 

C3 

R 

ft2/s2 

F5.0 

22-26 

C3 energy, this 
number will be 
multiplied by 
100,000 

5 

PMT 

I 

- 

12 

27-28 

Payload mission 
type flag 


»1, attached 
servicing 
*3, deploy 
»4, retrieved 
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TABLE II.- CONTINUED 


Card 


Word Symbol 
6 FLTPYR 


Type Units Format Column Description I 

I - 1323 29-67 Flight frequency I 

for 1979 to 1991. I 

Each word contains I 

a flag and denotes j 

the number of times | 

a payload goes up I 

and/or down In a ^ 

given year. The 
word Is entered as j 

XYZ, where j 

i 

X»1 The up and down « 

trips for this i 

payload can be >’ 

combined on a 
flight. j 

! 

X»2 The up and down ; 

trips for this 
payload cannot 
be combined on 
a flight. 


X Is Ignored If 
the mission type Is 
1 or 2, or If the 
payload Is always 
deployed or retrieved. | 
In these situations, j 
X Is set to zero 
(or blank). 

If X Is nonzero, Y 
Is the number of deplo^l 
ments (Y<9) and Z | 
Is the number of I 
retrievals. If X Is 
zero, YZ Is the num- 
ber of deploys, re- 
trieves, sorties, or 
services. 

7 IRPT I - 13 68-70 A flag which 

Indicates the 
repeat conditions 
of a payload 


I 


3-7 


TABLE II.- CONTINUED 


Card Word Symbol Type Units Format Column Description 


■0 Payloads to be 
repeated 1n a 
given year can- 
not be flown on 
the same flight. 

■1 Payloads flown 
can be repeated 
in a given year 
on the same 
flight. 


8 

PLOUR 

R 

hr 

F3.1 

71-73 

Desired time on-orbit 

9 

OPTIME 

R 

hr 

F3.1 

74-76 

Nominal duration of 
payload operation/day 
of time onboard the 
orb iter 

10 

IFREQ 

I 

■ 

13 

77-79 

Number of hr s /day 
the payload is oper- 
ated while onboard 
the or biter 

11 

MODE 

I 


11 

80 

Preferred delivery 
mode (attached 
payloads only) 

■1 lab 
■2 pallet 
>3 lab and pallet 

1 

RCS 

R 

lb 

F6.1 

4-9 

Reaction • u itrol 


System (Rlo) fuel 
requirements based 
on individual 
payload 
requirements 
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L, 


TADLE II.- CONCLUDED 

Symbol Type Units Format Column Description 


R 1b 


R 1b 


10-15 Electrical Power 
System (EPS) O 2 
requirements based 
on individual 
payload demands 

16-20 EPS H 2 requirements 
based on indi- 
vidual payload 
demands 


R ft 


21-24 Distance of the 
payload center of 
gravity from the 
front end of the 
payload 

25 A flag when set 

nonzero forces the 
use of a TSV 


3.9 


4. EXECUTION CHARACTERISTICS 


4.1 RESTRICTIONS 

The MPLS has the following limitations which apply to the analysis of any 

year under Investigation: 

a. The maximum number of payloads allowed on a flight Is six. 

b. The maximum number of single payloads whldi may be Investigated Is 200. 

c. A limit of 6200 feasible missions Is allowed for a specific number of 
payloads In a combination. 

d. The maximum amount of data which may be written onto a mass storage 
file before the progrmn terminates Is SO positions (3200 tracks). 

e. The numbers of payloads per combination Is restricted to three when 
both the mission type and discipline constraints are activated. 

Further restrictions are specified In the subprogram documentation. 


4.2 VALIDITY 

Validation of the MPLS has been accomplished primarily by the comparison 
of results obtained from other programs and by hand calculations. Refer* 
ence 2 gives a detailed explanation of the validation performed. 
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5. REFERENCE INFORMATION 


5.1 DETAILED FLDWCHART 

Fl^jre 5>1 illustrates the subprogram .Interaction for the MPLS. 
5-2 Illustrates the flow of the MPLS executive logic. 


Figure 
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Figure 5-1.- MPLS subprogram Interaction. 
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CALL PLIST 


GENERATE A 
WORKING LIST 
,OF PAYLOADS, 


DETERMINE WHICH 
PAYLOADS NEED y 
A TSV / 


CALL COMB 


GENERATE 

PAYLOAD 

COMBINATIONS/ 





SORT THE 
COMBINATION IN 
SASCENDING ALT 


Figure 5-2.- MPLS functional flow. 
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DISPLAY STATISTICS AS TO THE NUMBER OF COMBINATIONS, 

THE FEASIBLE AND INFEASIBLE COMBINATIONS FOUND, THE 
ELAPSED TIME REQUIRED, AND THE TIME PER GENERATED SOLUTION 


CALL RESET 

RESET THE REAL- 
TIME CLOCK 


CALL FEACOM 


GENERATE A LIST OF 
^FEASIBLE MISSIONS 


CALL TIME 


DETERMINE THE 
ELAPSED TIME 


DISPLAY THE NUBER OF MISSIONS THAT FEACOM REDUCED THE 
FEASIBLE MISSIONS TO AND THE TOTAL ELAPSED TIME IN FEACOM 
ALSO, DISPLAY THE INFEASIBLE PAYLOAD LIST 


RETURN 


Figure 5-2.- Concluded. 





5.2 VARIABLES IN LABELED COMMON 


• COMMON block name: Cl 

Description: Labeled COMMON Cl transmits the payload model data to var 

ious subprograms of MPLS. 

Storage required: 8201 


Location 

Name 

Dimension 

Im 

Description 

1-400 

NUMB 

200x2 

A 

Hollerith payload identification 
names 

401-800 

NO ISP 

200x2 

A 

Hollerith payload disciplines 

801-2000 

NAME 

200x6 

A 

Hollerith array describing 
the payload 

2001-2200 

LEN 

200 

R 

Array containing the total 
payload length including the 
pallet and/or lab 

2201-2400 

WT 

200 

R 

Array containing the total weight 
of the payload at lift-off 

2401-2600 

WTl 

200 

R 

Array containing the total weight 
of payload at landing 

2601-2800 

OIAM 

200 

R 

Payload diameter 

2801-3000 

HA 

200 

R 

Desired circular altitude 

3001-3200 

INCL 

200 

R 

Desired orbital inclination 

3201-3400 

C3 

200 

R 

C3 energy 

3401-3600 

PMT 

200 

I 

Payload mission type flag: 
=1 attached 
-2 servicing 
=3 deploy 
=4 retrieve 

3601-6200 

FLTPYR 

200x13 

I 

Array of the flight frequencies; 
each of the 13 words represents 
the data for an entire year 
starting at 1979. Each word 
contains a flag and denotes 
the number of times a payload 
goes up and/or down in a given 
year. The word is entered as 
XYZ where 
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Miiijiv.imiiiiPiii 1,1 III .uiijiipipipiiiiiip 


Location Name Dimension Type 


62D1-6400 

IRPT 

200 

I 

6401-6600 

PLDUR 

200 

R 

6601-6800 

OPTIME 

200 

R 

6801-7000 

IFREQ 

200 

I 

7001-7200 

MODE 

200 

I 

7201-7400 

RCS 

200 

R 

7401-7600 

OXEPS 

200 

R 

7601-7800 

HEPS 

200 

R 


Description 

X « 1 The up and down trips 
for this payload can be 
combined on a flight. 

X = 2 The up and down trips 
for this payload cannot 
be combined on a flight. 

X is ignored if the mission type 
is always deployed or always re- 
trieved. In these situations, X is 
set to zero. 

If X is nonzero, Y is the number 
of deployments (Y<9) and Z is the 
number of retrievals. If X is 
zero, YZ is the number of de- 
ploys, retrieves, sorties, or 
services. 

A flag which indicates the 
repeat conditions of a payload 
=0 Payloads to be repeated 
in a given year cannot be 
flown on the same flight. 

-1 Payloads to be repeated in a 
given year can be flown on the 
same flight. 

Desired time on orbit 

Nominal duration of payload opera- 
tion per day of time onboard the 
orb iter 

Number of times per day the pay- 
load is operated while onboard 
the orb iter 

Preferred delivery mode for 
attached payloads: 

= 1, lab 

= 2, pallet 

*3, lab and pallet 

PCS fuel requirements based on in- 
dividual payload requirements 

EPS 0? requirements based on indi- 
vidual payload demands 

EPS Ho requirements based on indi- 
vidual payload demands 






Location 

Name 

Dimension 

Type 

Description 

7801-8000 

C6P0S 

200 

R 

Distance of payload center of 
gravity from the front end of the 
payload 

8001-8200 

FTSV 

200 

I 

A flag when set nonzero forces 
the use of a TSV 

8201 

NUMPL 

1 

I 

Number of payloads in the 
model 


• COMMON block name: C2 


Description: Labeled COMMON C2 transmits the EPS data to various 


subprograms of MPLS. 
Storage required: 46 


Location 

Name 

Dimension 

Type 

Description 

1 

EPSWT 

1 

R 

The total EPS weight carried to 
Insertion 

2 

TEPSRV 

1 

R 

The total EPS required for pay- 
loads retrieved by the TSV and 
loaded onto the orb Iter 

3 

TEPSDP 

1 

R 

The total EPS required for pay- 
load deployed by the TSV 

4 

W 

1 

R 

The weight of the orb Iter 
excluding fuel, payloads, and 
consumables 

5-13 

OVORB 

9 

R 

The AV requirements for each ma- 
neuver In the mission 

14-22 

DUORB 

9 

R 

The discrete weight changes 
corresponding to DVORB 

23-31 

ORBMR 

Q 

R 

An array which Is computed as 
gAV/G'Ijp AV corresponds 

to DVORB and the terms g*Isp de- 
note the gravity term and spe- 
cific Impulse 

32 

N0RBP3 

1 

I 

The number of orb Iter payloads 
plus 3 

34 

EPSKIT 

1 

I 

The number of EPS kits used 

35 

EPSORY 

1 

R 

The total EPS dry tank weight 

36 

EDRY 

1 

R 

The weight of one dry EPS kit 

37 

E02RZ 

1 

R 

The EPS O 2 deadweight require- 
ments 

38 

EH2RZ 

1 

R 

The EPS H 2 deadweight require- 
ments 

39 

EPNKT 

1 

I 

The number of EPS kits Initially 
loaded and not charged to the 
cargo payload weight 


Location 

Name 

Dimension 

Type 

Description 

40 

EPCRW 

1 

R 

The crew and deadweight require- 
ments not chargeable to the 
orbiter's payload weight 

41 

WT02 

1 

R 

The weight of one EPS O 2 kit, 
not Including the tank 

42 

WTH2 

1 

R 

The weight of one EPS H 2 kit, not 
Including the tank 

43 

02SL 

1 

R 

The O 2 , crew, and deadweight re- 
quirements not charged to the pay- 
load weight 

44 

H2SL 

1 

R 

The Hp deadweight requirements 
not charged to the payload weight 

45 

EPS02 

1 

R 

The O 2 EPS deadweight require- 
ments charged to the payload 
weight 

46 

EPSH2 

1 

R 

The H 2 EPS deadweight require- 
ments charged to the payload 
weight 
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• COMMON block name: C3 





Description: Labeled COMMON C3 transmits a debug print flag to various 
MPLS routines and loading Information to the C6 routines. 

Storage required: 11 


Location 

Name 

Dimension 


Description 

1 

IPRNT 

1 

T 

A 

A flag when set nonzero causes 
debug Information to be printed 
from MPLS routines 

2-7 

ISORB 

6 

I 

An array which contains the 
orbiter payload sequence being 
flown. This array Is used 
as an Index Into ICORB. 

8-10 

ISTUG 

6 

I 

An array which contains the 
TSV payload sequence being 
flown. This array Is used 
as an Index Into ICTU6. 

11 

INCG 

1 

I 

C6 TEST FLAG: 

INCG * 0: Do not test 
cargo eg. 

■ 1: Test cargo eg. 



• COMMON block name: C4 


Description: Labeled COMMON C4 conveys detailed Information about 

a specific permuted flight sequence of a payload combination 
to various MPLS routines. 

Storage required: 110 


Location Name Dimension Type Description 


1 

lENO 

1 

I 

2 

ITU6 

1 

I 

3 

ITER 

1 

I 

4 

TINCI 

1 

I 

5 

IFLA6 

1 

I 

6 

OVTFl 

1 

R 

7 

JENO 

1 

I 

8 

JTU6 

1 

I 

9 

WEDGE 

1 

R 

10 

YALT 

1 

R 

11 

E0MR3 

1 

R 

12 

WRCS 

1 

R 

13 

E0DV3 

1 

R 

14 

DVTIl 

1 

R 

15 

R00V2 

1 

R 

16 

R0MR2 

1 

R 

17 

R00V3 

1 

R 

18 

R0MR3 

1 

R 

19 

DVTI2 

1 

R 

20 

POINCl 

1 

R 

21 

POINC2 

1 

R 

22 

0VTF2 

1 

R 
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Location 


Name Dimension 


Description 


Type 


23 

GMSMAX 

1 

R 

24 

JFLAG 

. 1 

R 

25-33 

RDVORB 

9 

R 

35-43 

OVORB 

9 

R 

45-53 

ORBMR 

9 

R 

55-63 

DWTU6 

9 

R 

65-74 

TUGMR 

10 

R 

75-84 

OVTUG 

10 

R 

85-93 

OWORB 

9 

R 

96 

YINC 

1 

R 

97 

ITRY 

1 

I 

98 

XINC 

1 

R 

99 

XALT 

1 

R 

100 

XL 

1 

R 

101 

TALTI 

1 

R 

102 

TWU 

1 

R 

103 

TL 

1 

R 

104 


1 

R 

105 

CTUG 

1 

R 

106 

TINCF 

1 

R 

107 

TALTF 

1 

R 

108 

TSVRCS 

1 

R 




• COfflON block name: C5 

Description: Labeled COMMON C5 transmits a working list of the 
payload model data to various subprograms of MPLS. 

Storage required: 903 


Location 

Name 

Dimension 

Type 

Description 

1-100 

PAYNO 

100 

I 

List of payloads which fly 
during the year under analysis 

101-300 

PLREP 

200 

I 

Information for duplicate 
payloads where even Indices 
Indicate the number of duplicates 
of the payload number Identified 
by the odd Indices 

301 

NUMRPT 

1 

I 

Total number of repeated payloads 
found for the year under analysis 

302 

NPLNYR 

1 

I 

Number of payloads which fly 
during the year under analysis 

303-502 

IDOWN 

200 

1 

Identification of payloads 
which are both deployed and 
retrieved In the same year 

503 

NUPON 

1 

I 

Number of up/down payloads 
found 

504-703 

IREP 

200 

I 

A working storage area used 
to keep track of the repeated 
payloads as they are output 

704-803 

PMTl 

100 

I 

Payload mission types defined 
as: 

> 1 attached 

■ 2 servicing 
» 3 deploy 

■ 4 retrieve 

> -3 an up/down payload; deployed 
• -4 an up/down payload; retrieved 

804-903 

NEE0T6 

100 

I 

Array used to indicate whether 


a payload In the PAVNO list 
requires a TSV as: 

■ 0, no TSV required 

■ 1, a TSV Is required 
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• .COMMON block name: C6 

Description: Labeled COMMON C6 transmits the TSV data from the payload 
model to various subprograms of MPLS. 

Storage required: 106 


Location 

Name 

Dimension 

Type 

Description 

1-15 

TUGLN 

15 

R 

Array containing the lengths of 
the TSV‘s 

16-30 

TU6WT 

15 

R 

Array containing the dry weight 
of each TSV 

31-45 

TUGISP 

15 

R 

Specific Impulse of each of the 
TSV's main engines 

46-60 

TUGCAP 

15 

R 

Maximum amount of propellant for 
each TSV 

61-75 

YRAVAL 

15 

I 

First year available for each of 
the TSV's 

76-90 

STAGE3 

15 

I 

Array used to Identify which 
TSV's are available for the year 
under analysis; a nonzero work In 
the array specifies that the 1th 
TSV Is available 

91-105 

TUGTYP 

15 

I 

The TSV type 
- 1, expendable LUS 
> 2, expendable LUS 
* 3, reusable LUS 

106 

NTUGN 

1 

I 

The number of TSV's used for the 


analysis 


• COMMON block name: C7 


Description: Labeled COMMON C7 transmits data pertaining to the feasible 
missions. Other parameters Identifying the payload se- 
quence and the number of single mission payloads that 
have been rejected are also transmitted. 

Storage required: 111 


Location 

Name 

Dimension 

Type 

Description 

1 

NCC 

1 

I 

Number or combinations generated 

2 

M 

1 

I 

Number of payloads in the lA 
array 

3-8 

lA 

6 

I 

Initial payload sequence, used to 
index Into the PAYNO array 

9 

NFS 

1 

I 

Number of single payload missions 
rejected 

10-109 

NFLS 

100 

I 

An array containing the names of 
the single payload missions 
rejected 

no 

NOPL 

1 

I . 

An option which causes repeated 
payloads to be flown on the same 
mission; Ignored If zero 

111 

KOPT 

1 

I 

A flag, set nonzero, used to in- 
hibit permutations of a payload 
sequence 
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• COMMON block name: C8 


Description: Labeled COMMON C8 transmits information pertaining to the 
orbiter/TSV payloads carried up and down. 

Storage required: 50 


Location 

Name 

Dimension 

Type 

Description 

1 

OPWU 

1 

R 

Orbiter payload weight carried to 
insertion 

2 

TPWU 

1 

R 

TSV payload weight carried to 
insertion 

3 

OPWD 

1 

R 

Orbiter payload weight at landing 

4 

TPWD 

1 

R 

TSV payload weight at landing 

5 

OPLU 

1 

R 

Orbiter payload length at launch 

6 

TPLU 

1 

R 

TSV payload length at launch 

7 

OPLD 

1 

R 

Orbiter payload length at landing 

8 

TPLD 

1 

R 

TSV payload length at landing 

9 

NORBPL 

1 

I 

Number of payloads on the orbiter 

10 

NTUGPL 

1 

I 

Number of payloads on the TSV 

11-16 

ICORB 

6 

I 

Identification number for each 
orbiter payload 

17-22 

ICTUG 

6 

I 

Identification number for each 
TSV payload 

23-28 

lEORB 

6 

I 

An array containing the numerical 
mission type for each orbiter 
payload 

29-34 

lETUG 

6 

I 

An array containing the numerical 
mission type for each TSV payload 

35 

IREUSE 

1 

I 

A flag set to indicate that 
dedicated TSV's are required 

36 

NREUSE 

1 

I 

Number of reusable TSV's that are 
available 

37 

NTUGS 

1 

I 

Number of TSV's which meet the re- 
quirements of the mission 
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Location 

Name 

Dimension 

Type 

Description 

38-47 

LTU6S 

10 

I 

Indices of available TSV's which 
meet the requirements of the 
mission 

48 

RCSWT 

1 

R 

Total RCS fuel used In pounds 

49 

TOTPLU 

1 

R 

Total orb Iter and TSV payload 
weight at launch « not Including 
the OMS kits or TSV dry weight 

so 

TOTPLD 

1 

R 

Total orb Iter and TSV payload 
weight at landing, not Including 
the OMS kits or TSV dry weight 


• COMMON 

block name: C9 



Description: Labeled COMMON C9 transmits the majority of user options 

to the MPLS. 

Storage required: 54 

Location 

Name 

Dimension 

Im 

Description 

1 

YFAIL 

1 

I 

A diagnostic message flag, when 
set nonzero, causes the reason a 
mission is infeasible to be 
printed 

2 

MM 

1 

I 

Number of feasible missions found 
for the year under analysis 

3-47 

NMCLD 

45 

I 

Cumulative total of occurrences 
for each mission type over all 
years processed 

48 

MLIST 

1 

I 

A flag, when set nonzero, com- 
pares the payload combinations to 
the allowable mission types. 
Unmatched combinations are 
declared infeasible. 

49 

NN 

1 

I 

Number of mission type parameters 
in NMCLD 

50 

FEASOP 

1 

I 

A flag, when set nonzero, causes 
the printout of data associated 
with feasible combinations 

51 

CO STOP 

1 

I 

Not used 

52 

STATOP 

1 

I 

A flag, when set nonzero, causes 
the mission type occurrence sta- 
tistics for feasible combinations 
to be generated 

53 

MIXDIS 

1 

I 

A flag, when set nonzero, causes 
the statistics of the mission 
types to be printed 

54 

NO TAB 

1 

I 

A flag, when set nonzero, causes 
SCA occurrence table to be 
printed 


• COMMON block name: CIO 


Description: Labeled COMMON CIO transmits the orbIter/TSV data to 

various routines after It has been evaluated by subroutine. 
SOIL. 

Storage required: 25 


Location 

Name 

Dimension 

Type 

Description 

1 

PCAur 

1 

R 

Altitude of the Initial parking 
orbit 

2 

POINC 

1 

R 

Inclination of the initial parking 
orbit 

3 

ORBOV 

1 

R 

Orb iter total AV for the mission 

4 

TUGDV 

1 

R 

TSV total AV for the mission 

5 

OMSWT 

1 

R 

Weight of the orb iter propellant 
needed to form the sequence 

6 

TU60MS 

1 

R 

Weight of the TSV propellant 
needed to form the sequence 

7 

TTWU 

1 

R 

Total TSV weight at launch 

8 

TVJD 

1 

R 

TSV weight at landing 

9 

TLU 

1 

R 

TSV length at launch 

10 

TLD 

1 

R 

TSV length at landing 

11 

XLMAX 

1 

R 

Length of the cargo bay used for 
the orb iter payloads 

12-17 

IFSORB 

6 

R 

Final sequence of the orb iter pay- 
loads in the combination 

18-20 

IFSTUG 

3 

I 

Final sequence of the TSV 
payloads 

21 

IFTUG 

1 

I 

Index of the TSV used to fly this 
mission 

22 

DOALT 

1 

R 

Altitude of the orbit at which 
the TSV is deployed 

23 

DOINC 

1 

R 

Inclination of the orbit in which 
the TSV is deployed 
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Location 

Name 

Dimension 

Iffii 

Description 

24 

ROALT 

1 

R 

Altitude of the TSV being 
retrieved 

25 

ROINC 

1 

R 

Inclination of the orbit in which 
the TSV is to be retrieved 


5-21 


• COMMON block name: Cll 

Description: COMMON Cll Transmits the resultant output of subroutines 
SDTL and OMSCK to various other modules for output. 

Storage required: 17 


Location 

Name 

Dimension 

Type 

Description 

1 

PLPOMS 

1 

R 

Theoretical maximum weight the 
Shuttle can carry to the initial 
parking orbit 

2 

WT20RB 

1 

R 

Maximum payload weight the Shut- 
tle can carry to the initial 
parking orbit 

3 

TOTWU 

1 

R 

Total cargo weight at launch; in- 
cludes payloads, OMS kits, etc. 

4 

TOTWD 

1 

R 

Total cargo weight at landing; in- 
cludes payloads, OMS kits, etc. 

5 

PUMARU 

1 

R 

Additional payload weight the 
orb iter can carry up 

6 

PWMARD 

1 

R 

Additional payload weight the 
orb iter can carry down 

7 

PWMARG 

1 

R 

Additional payload weight the 
orb iter can carry 

8 

TOTLU 

1 

R 

Total length of the cargo at 
launch 

9 

TOTLD 

1 

R 

Total length of the cargo at 
landing 

10 

CLMAX 

1 

R 

Maximum length used by any permu- 
tation of the sequence 

11 

TOTLMX 

1 

R 

Greatest length referenced, 
either TOTLU, TOTLD, or CLMAX 

12 

PLMARG 

1 

R 

Additional payload cargo length 
the orb iter can use for this 
flight 

13 

OMSTNK 

1 

R 

Total weight of the OMS fuel used 
by the orb iter 

14 

OMSK IT 

1 

R 

Weight of the OMS fuel carried in 
the kits 
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J 


Location 

Name 

Dimension 

Type 

Description 

15 

WTKITS 

1 

R 

Weight of the dry OMS kits used 

16 

XLKITS 

1 

R 

Length of the stacked OMS kits 
used 

17 

NOKITS 

1 

R 

Number of OMS kits used 






i 
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• COMMON block name: C12 


Description: Labeled COMMON C12 transmits the mission type code re 
lated data to various subroutines. 

Storage required: 55 


Location 

Name 

Dimension 

Type 

Description 

1-9 

MSSTYP 

9 

I 

Symbols for the nine mission 
types considered 

10-54 

MSCLCD 

45 

I 

List of the allowable mission 
types for all combinations 

55 

NMTYP 

1 

I 

Number of allowable mission types 
In MSCLCD 


• COMMON block name: C13 


Description: Labeled COMMON C13 transmits lUS TSV data from the pay 
load model to various subprograms of MPLS. 

Storage required: 181 


Location 

Name 

Dimension 

Iffii 

UescriDtIon 

1-15 

TTWT 

15 

R 

An array containing the total 
weight of the lUS's being used 

16-30 

TISP 

15 

R 

The specific Impulse of each 
stage 

31-45 

NTSVA 

15 

I 

The number of stages used on each 
lUS vehicle 

46-60 

FUEL 

15 

R 

The total fuel available for each 
stage 

61-75 

nsvwT 

15 

R 

The total weight of each stage 

76-150 

NUNQS 

15x5 

I 

An array which contains the stage 


numbers used for an lUS. This 
array is used to Index Into TISP, 
FUEL, TSVLN, and HSVWT. 


151 

NTSVS 

1 

I 

The number of lUS vehicles to be 
used (NTSVS < 10) 

152-166 

TSVLN 

15 

R 

The length of each stage 

167-181 

TLS 

15 

R 

The total length of each lUS 
being used 


• COMMON block name: C14 

Description: Labeled COMMON C14 transmits Information pertaining to 
the payload combination to various subroutines In MPLS. 

Storage required: 30 


Location 

Name 

Dimension 

Iffii 

Description 

1-6 

IB 

6 

I 

Payload sequence as formed from 
the ICTUG and ICORB array In 
labeled COMMON C8 

7-12 

IC 

6 

I 

Payload Identification numbers In 
the combination; the Indices are 
pointers Into each array of COM- 
MON Cl 

13-18 

ID 

6 

I 

Discipline mix code; the numbers 
are pointers Into the OISPNM 
array of COMMON C30 

19-24 

IE 

6 

I 

Payload mission type; the array 
Is stored as a function of the IC 
array pointing Into the PMTl 
array of COMMON C5 

25-30 

IG 

6 

A 

Alphanumeric payload mission 
type; the array is stored as a 
function of the absolute value of 
the IE array ^s It points into 
the MSSTYP array c* COMMON C12 
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• COMMON block name: CIS 

Description: Labeled COMMON CIS retains two words used to Identify the 
launch window and whether the VfTR Is available. 

Storage required: 2 


Location 

Name 

Dimension 

Im 

Description 

1 

NWTR 

1 

I 

A flag which indicates. If 
nonzero, that the UTR Is avail* 
able; otherwise, an ETR launch 1s 
assumed 

2 

NYAV 

1 

I 

An Integer used to denote the 
year of availability for WTR 
launches 
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• COMMON block name: C17 

Description: Labeled COMMON C17 transmits Information to the statisti- 
cal subprograms. 

Storage required: 1440 


Location 

Name 

Dimension 

Type 

Description 

1-675 

MCT 

45x15 

I 

An array which contains the 
unique mission type codes for all 
years Investigated 

676-1350 

MONO 

45x15 

I 

The accumulative mission class 
codes for all years under 
Investigation 

1351-1395 

LOC 

45 

I 

An array of accumulative mission 
class codes 

1396-1440 

JORO 

45 

I 

A working array used to store the 
particular class code for the 
year under Investigation 
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• COMMON block name: C25 


Description: Labeled COMMON C25 retains the majority of the system con 
straints used by the program. 

Storage required: 20 


Location 

Name 

Dimension 

Type 

Description 

1 

UPLBS 

1 

R 

Maximum payload chargeable weight 
with which the orb Iter can launch 

2 

ONLBS 

1 

R 

Maximum payload chargeable weight 
with which the orb Iter can land 

3 

SBOWT 

1 

R 

Orb Iter dry weight 

4 

OMSINT 

1 

R 

Weight of the OMS fuel In the 
main tank 

5 

SPI 

1 

R 

Specific Impulse of the orbiter's 
WS engines 

6 

BAYLN 

1 

R 

Length of the orb Iter cargo bay 

7-9 

FTKIT 

3 

R 

Length of the stacked OMS kits; 
the first word represents one 
kit, the second Is the 
accumulative length of two kits, 
and the third Is the accumulative 
length of three kits 

10-12 

WTKIT 

3 

R 

Weight of the stacked OMS 
kits; the accumulative weights 
of one, two, and three kits 

13 

RESOMS 

1 

R 

Amount of reserve OMS fuel 
carried for contingencies 

14 

REOZOV 

1 

R 

The 4V required for rendezvous 
maneuvers 

15 

RCSROZ 

1 

R 

Weight of the RCS fuel used for 
each rendezvous 

16 

GRAV 

1 

R 

Acceleration due to gravity 

17 

CORB 

1 

R 

Acceleration of gravity times 
the specific Impulse of the OMS 
engines 

18 

RCSCAP 

1 

R 

Total fuel capacity of the RCS 
system 


Location 

Name 

Dimension 

Im 

Description 

19 

RESRCS 

1 

R 

Reserve RCS fuel 

20 

MAXKTS 

1 

I 

MAX number of OMS kits allowed 


• COMMON block name: C30 


Description: Labeled COMMON C30 transmits Information pertaining to 
the payload type and discipline to various statistics 
routines. 

Storage required: 223 


Location 

Name 

Dimension 

Im 

Description 

1-20 

DISPNM 

20 

A 

A list of two-character 
alphanumeric discipline names 
allowed 

21-120 

MIXLST 

100 

I 

The allowed discipline mix codes 
as pertain to the payload 
sequence 

121-220 

MIXCNT 

100 

I 

Cumulative count of the payload 
discipline mix codes 

221 

MIXCHK 

1 

I 

A flag, when set nonzero, causes 
the discipline mix constraint to 
be applied to a payload sequence 

222 

MNIX 

1 

I 

Current number of mission types 

223 

NOOIS 

1 

I 

Number of discipline mix combina- 
tions considered 


• COMMON block name: C33 


Description: Labeled COMMON C33 retains information pertaining to the j ! 

number of combinations generated. | 

I 

Storage required: 7 


Location 

Name 

Dimension 

Type 

Description 

1-6 

KCOMB 

6 

I 

An array which indicates the 
starting numbers of the mission 
payload sets 

7 

NUM 

1 

I 

The maximum number of payloads 
generated in a combination 


5-32 




• COMMON block name: C34 

Description: Labeled COMMON C34 transmits information within the combi 
nation generator routines to track the data as it is 
generated. 

Storage required: 12403 


Location Name Dimension 
1-6200 SETIN 6200 

6201-12400 NXCOMB 6200 

12401 M2 1 

12402 K 1 


Type Description 

I Reference set of payload combina- 
tions generated 

I Current set of payload combina- 
tion generated 

I Number of combinations in SETIN 

I Index of the current payload com- 
bination being generated 


12403 LAST 


First nonzero combination in 
SETIN, set to 1 


{ 
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§ COMMON block name: C39 

Description: Labeled COMMON C39 transmits the optional print 
information. 

Storage required: 15 


Location 

Name 

Dimension 

Type 

Description 

1 

MKS 

1 

I 

A flag specifying the printed 
output units 
*1, the units are mks 
=2, the units are fps 

2-14 

LFRK 

13 

I 

Used to print error statistics 

15 

NPLOS 

1 

I 



5.3 SUBPROGRAM DOCUMENTATION 


Individual subprogram documentation is given in alphabetical order on the 
following pages. Functions RANDOM and ZOR and subroutine EXP are avail- 
able from the MSC*LOCALIB on EXEC 8. Their documentation is found in ref- 
erence 3. 


SUBROUTINE ALLOCT 


IDENTIFICATION 

Name (Title) 

Author, Date 
Machine Identification 
Source Language 


- ALLOCT (Mission Allocation Routine) 

- J. Williams, August 1975 

- UNIVAC 1110 

- FORTRAN V 


i 


V 


PURPOSE 

Subroutine ALLOCT generates a list of random numbers in ascending order 
for a specific interval defined in COMMON. 


USAGE 

• Calling Sequence 

CALL ALLOCAT (M, LIST, lOPT) 
Arguments: 

Parameter 


name 

In/Out 

Dimension 

Type 

Description 

M 

Out 

1 

I 

Number of words stored in 
LIST 

LIST 

Out 

1 

I 

A list of random numbers 
generated in ascending 
order for a particular 
interval 

lOPT 

In 

1 

I 

An initialization flag 
used as 


»1, initialization 
=2, causes a list of ran- 
dom numbers to be 
generated as a func- 
tion of the intervals 
specified in COMMON 
C33 


• Labeled COMMON used: C33 
METHOD 


Subroutine ALLOCT is used to generate a list of random numbers within an 
interval. The routine solves the problem of reducing the number of 
feasible missions found by the MPLS for use by the SCA. The list is then 
sorted into ascending order and checked for redundant numbers. 
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RESTRICTIONS 


• Operational 

Function ZOR and subroutine SORTX are required. 

ROUTINES CALLED 
SORTX 

CALLED BY 
FEACOM 
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SUBROUTINE ANTONC 


IDENTIFICATION 

Name (Title) - ANTONC 

Author, Date - E. Oupnick, January 1975 

Machine Identification - UNIVAC 1110 

Source Language - FORTRAN V 


PURPOSE 


Subroutine ANTONC converts an alphanumeric payload discipline code 
to an equivalent numeric code. 


USAGE 

t Calling Sequence 
CALL ANTONC 

f Labeled COMMON used: Cl, C33 


RESTRICTIONS 


The first two characters of the NUMB parameter of the payload model 
are assumed to be a discipline code for each payload. Twenty distinct 
codes can be stored as scanned from the payload model. More than 20 
codes causes the folowing message to be printed: 

WARNING: MORE THAN 20 PAYLOAD DISCIPLINES HAVE BEEN IDENTIFIED 


ROUTINES CALLED 


CALLED BY 


MAIN 


SUBROUTINE CGIN 




IDENTIFICATION 


Name (Title) 

Author, Date 
Machine Identification 
Source Language 


- CGIN (CG Initialization Routing) 

- J. Williams, April 1976 

- UNIVAC 1110 

- FORTRAN V 


PURPOSE 


SUBROUTINE CGIN provides an interface between subroutine SDTL and the CG 
model. 


USAGE 


• Calling Sequence 
CALL CGIN (LMODE, KTUGS, $) 
Arguments : 



Parameter 

name 

In/Out Dimerisicn 

Type 

Description 

LMODE 

In I 

J 

A dummy flag which is set 
to unity to ensure a 
proper routine interface 
from SDTL 

KTUGS 

$N 

In 1 

I 

Not used 

The statement in the call 
ing program to which con- 
trol is transferred if an 
error occurs 


• Labeled COMMON used: Cl, C3, C6, C7, C8, CIO, Cll, C12, C25 


METHOD 


Subroutine CGIN is used to initialize the arguments for a call to 
subroutine CGTEST. If it has been determined by CGTEST that the mission 
failed, then an error return is made. 


ROUTINES CALLED 
CGTEST 
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CALLED BY 
STDL 
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SUBROUTINE C6L0A0 


i; 

IDENTIFICAT ION 


Name (Title) 

Author, Date 
Machine Identification 
Source Language 


- C6L0A0 (Initial Loading of Payloads In Cargo 
Bay for CG Model) 

- E. H. Perrenot, February 1976 
• UNIVAC 1110 

- FORTRAN V 


PURPOSE 

Subroutine C6L0A0 creates the Initial loading sequence of payloads In the 
Shuttle cargo bay prior to the mission events. 


USAGE 


e Calling Sequence 

CALL CGLOAD (NPLOS. ITNL, ISEQ, NTUGPL. ITUG, IPMT, PLOWT, NOMSKT. 
NSEQ) 

Arguments : 


Parameter 

name 

In/Out 

Dimension 

Type 

Description 

NPLOS 

In 

1 

I 

The number of payloads 
involved In the candidate 
mission 

ITNL 

In 

1 

I 

«0, no roundtrip payloads 
In ISEQ requiring a tunnel 
■n (f), payload number n 
In ISEQ requires a tunnel 

ISEQ 

In ■ 

Dimensioned 
In calling 
program 

I 

The Identification 
numbers of the payloads 
Involved In the mission 
(In the order flown) 

NTUGPL 

In 

1 

I 

The number of payloads In 
ISEQ that require a third 
stage 

ITUG 

In 

Dimensioned 
In calling 
program 

I 

The Identification 
numbers of the payloads 
requiring a third stage 


I' 


5-41 


Parameter 


name 

In /Out 

Dimension 

Type 

Description 

IPMT 

In 

Dimensioned 
In calling 
program 

A 

Array containing payload 
mission types for the 
payloads In ISEQ: 

A ■ attached, S ■ service, 
D ■ deploy, R • retrieve 

PLDWT 

In 

Dimensioned 
In calling 
program 

R 

The weights of the pay- 
loads In the payload 
model plus adapter 
weights. If required 

NOMSKT 

In 

1 

I 

The number of OMS kits 
on board for this mission 

NSEQ 

Out 

Dimensioned 
In calling 
program 

I 

The sequence of payloads 
as loaded (front to 
back of the cargo bay) 

e Labeled COMMON used: 

None 




METHOD 

Subroutine CGLOAO examines all payloads on the candidate mission with re- 
gard to payload mission type. If the payload Is to be retrieved, whether 
by the Shuttle or by a third stage. It Is not considered for loading. All 
payloads are ordered In the cargo bay from front to rear by Increasing 
weight. The exceptions are that a third stage and Its payloads are loaded 
In the rear and that other payloads are grouped Into deploys and round 
trips, the heavier group loaded In back of the other. In the case of the 
third stage. It Is loaded to the rear of the bay with Its payloads stacked 
Immediately In front in the reverse order of deployment. A flag Is set In 
the eighth word of the arrray NSEQ If OMS kits are present. These 
kits will be loaded against the rear wall of the cargo bay. 


Example: 

Flight sequence: (1) deploy third stage (TS) with payloads A and B 

(B to be deployed first), (2) retrieve C, (3) round trip 0, (4) deploy 
E, and (5) deploy F. 

Weights • 0 - 1500 lb 

E - 700 lb 

F - 600 lb 

Order In cargo bay, front to rear: F, E, 0, B, A, TS 
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RESTRICTIONS 


• Operational 

Subroutine ISORT Is required. 

ROUTINES CALLED 
CGMOV, ISORT 

CALLED BY 


CGTEST 


SUBROUTINE CGMOV 


IDENTIFICATION 

Name (Title) - CGMOV (Shift Payloads in Array) 

Author, Date - E. H. Perrenot, February 1976 

Machine Identification - UN I VAC 1110 

Source Language - FORTRAN V 


PURPOSE 


Subroutine CGMOV shifts elements in an array when an element is being 
inserted in the array. 


USAGE 

• Calling Sequence 

CALL CGMOV (IBUF, IDIM, I, J, K) 
Arguments : 

Parameter 


name 

In/Out 

Dimension 

Type 

Description 

IBUF 

In /Out 

Dimensioned 
in calling 
program 

I 

Array 

IDIM 

In 

1 

I 

Dimension of IBUF 

I 

In 

1 

I 

The word in IBUF where the 
shift is to begin 

J 

In 

1 

I 

The number of places 
(words) to shift the array 

K 

In 

1 

I 

< 0, shift to the left; 0, 
fo the right 

• Labeled 

COMMON used 

: None 



Method 





Subroutine 

CGMOV uses 

another array to 

store 

words from IBUF instead of aC' 


tually shifting them in IBUF itself. It tests for zeroed words and does 
not include them in the shift. Thus, if the calling arguments specify a 
two-word shift to the right, the first word indicated in IBUF is indeed 
moved two words to the right, but the shifting process will be terminated 
if two zeroed words are encountered. 
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ROUTINES CALLED 


CALLED BY 

CGLOAD, CGNSRT, CGTEST 


SUBROUTINE CGMPLD 


IDENTIFICATION 


Name (Title) 

Author, Date 
Machine Identification 
Source Language 


- CGMPLD (Multipayload Center-of-Gravity 
Computation) 

- E. H. Perrenot, February 1976 

- UNIVAC 1110 

- FORTRAN V 


PURPOSE 


Subroutine CGMPLD computes the CG for a group of payloads in the Shuttle 
cargo bay. 


USAGE 


• Calling Sequence 

CALL CGMPLD (IPLD, PLDWT, PLDLEN, PLDCG, TUGWT, TUGLEN, F, OMSWT, 
OMSLEN, D, NSEQXT, TWT, WTXLEN, CG) 

Arguments : 

Parameter 


name 

In/Out 

Dimension 

Type 

Description 

IPLD 

In/Out 

Dimensioned 
in calling 
program 

I 

Array containing identifi 
cation numbers of payloads 

PLDWT 

In 

Dimensioned 
in calling 
program 

R 

The weights of the 
payloads in the payload 
model plus adapter 
weights, if required 

PLDLEN 

In 

Dimensioned 
in calling 
program 

R 

Array of payload lengths, 
corresponding to PLDWT 

PLDCG 

In 

Dimensioned 
in calling 
program 

R 

Array of payload CG's 
corresponding to PLDWT 

TUGWT 

In 

1 

R 

The dry weight of third 
stage, if used 

TUGLEN 

In 

1 

R 

The length of the third 
stage 

F 

In 

1 

R 

Weight of the fuel on 
board the third stage 
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Parameter 

name 

OMSWT 

OMSLEN 

D 

NSEQXT 

TWT 

WTXLEN 


CG 

• Labeled 


In /Out 

Dimension 

Jm, 

Description 

In 

1 

R 

Total weight of OMS kits, 
if used 

In 

1 

R 

Length of OMS kits 

In 

1 

R 

The distance (in feet) 
from the front of the 
cargo bay to the first pay- 
load in the cargo bay, a 
function of CG constraints 
in previous mission phases 
(events) 

In/Out 

Dimensioned 
in calling 
program 

I 

Array containing the 
amount of available 
space in the cargo 
bay created by previous 
payload deployments 

Out 

1 

R 

Total weight of payloads 
in the cargo bay (plus 
third stage and fuel, 
if applicable) 

Out 

1 

R 

For all payloads in 
the cargo bay, a summation 
of the following (for 
each payload): the 
sum of payload CG and 
total distance from 
the front of the bay 
multiplied by payload 
weight, used in computing 
CG of retrieval payloads 
loaded in the rear 
of the cargo bay 

Out 

1 

R 

The CG for the group 
of payloads in IPLD, 
expressed in feet from 
the front of the cargo 
bay 


COMMON used: None 
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METHOD 


• Model 

Subroutine CGMPLD calculates the distance from the front of the cargo 
bay to the front of each payload in the bay. This distance includes 
the sum of the lengths of payloads in front of it as well as the extra 
space left by deployed payloads. This length is used in the basic 
CG equation: 


Wi(d + Cl) + 23 W^(d + Li + Ci) 
i=2 

CG = 

n 

i=i 


where 

Wi = Weight of ith payload in the cargo bay 

d » Distance from the front wall to the first payload 

Ci = The CG of ith payload in the cargo bay 

Li = Total length of the payloads and reserved gaps between payloads 


ROUTINES CALLED 


CALLED BY 
CGTEST 


5-48 




JJUV. A 








SUBROUTINE C6NSRT 


IDENTIFICATION 

Name (Title) - CGNSRT (Inserts Payload into Gap In Cargo 

Bay) 

Author, Date - E. H. Perrenot, February 1976 

Machine Identification - UNIVAC 1110 

Source Language - FORTRAN V 


PURPOSE 


Subroutine CGNSRT checks the cargo bay for an available area in which 
to insert a retrieval payload after it has been determined by subroutine 
CGTEST that the payload will not fit in the front or rear of the bay. 


USAGE 

• Calling Sequence 

CALL CGNSRT (NP, ITNL, PLEN, TOTLEN, PWT, TWT, NSEQ, NSEQXT, MINOl, 
MAXDl, NPINB, $a, $b) 

Arguments : 

Parameter 


name 

In /Out 

Dimension 

Type 

Description 

NP 

In 

1 

I 

Identification number 
of payload to be inserted 

ITNL 

In 

1 

I 

*0, no roundtrip payloads 
in ISEQ requiring a tunnel 
»n (>0), payload number n 
in ISEQ requires a tunnel 

PLEN 

In/Out 

1 

R 

Length of the payload 

TOTLEN 

In/Out 

1 

R 

Total length of the 
payloads in the cargo 
bay 

PWT 

In 

1 

R 

Weight of the payload 

TWT 

In/Out 

1 

R 

Total weight of the 
payloads in the cargo 
bay 

NSEQ 

In/Out 

Dimensioned 
in calling 
program 

I 

The sequence of payloads 
in the cargo bay (front 
to back 


Parameter 

name 

In /Out 

Dimension 

Type 

Description 

NSEQXT 

In/Out 

Dimensioned 
in calling 
program 

I 

Array containing the 
amount of available 
space in the cargo 
created by previous 
payload deployments 

MINDl 

In /Out 

1 

R 

The minimum distance from 
the front of the cargo bay 
to the first payload 

MAXDl 

In/Out 

1 

R 

The maximum distance from 
the front of the cargo bay 
to the first payload 

NPINB 

In/Out 

1 

R 

The number of payloads in 
the cargo bay 

Sd 




Returns to a statement 
numbered a in the calling 
program if the payload can- 
not be loaded 

$b 




Returns to a statement 
numbered b in the calling 
program if it can be 
loaded 


• Labeled COMMON used: None 


METHOD 

Subroutine CGNSRT searches the array of available space (in the fortn of 
"gaps” in the payload bay) from the rear of the cargo bay to the front 
to determine if the candidate retrieval payload will fit in such a 
location. If such a space is found, the payload number will replace 
the flag (-5) in the array NSEQ and the length of the payload is considered 
to be, for CG purposes, that of the gap in the cargo bay that it occupies. 
This is necessary because the other payloads in the bay cannot be moved 
about and "squeezed" against the new addition. Actually, the payload 
is loaded in the forwardmost part of the gap it occupies. When the 
payload is loaded, the total payload length and weight in the cargo 
bay is updated, as well as the number of payloads in the bay. 


RESTRICTIONS 


• Operational 

Subroutine CGMOV is required. 
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ROUTINES CALLED 
CGMOV 

CALLED BY 


CGTEST 


SUBROUTINE C6TEST 


IDENTIFICATION 

Name (Title) - CGTEST (Center-of -Gravity Test) 

Author, Date - E. H. Perrenot, October 1976 

Machine Identification - UNIVAC 1110 

Source Language - FORTRAN V 


PURPOSE 


Subroutine CGTEST checks a given combination of payloads to assure that 
center-of -gravity requirements are satisfied. 


USAGE 


0 Calling Sequence 

CALL CGTEST (ARM. WT, N, IFLAG) 
Arguments: 


Parameter 

name 

In/Out 

Dimension 

Type 

Description 

ARM 

Out 

Dimensioned 
in calling 
program 

R 

Distance in feet from the 
front wall of the cargo 
bay to the CG of the ith 
payload (payload group if 
configuration is side-by- 
side), i»l through 6, 
front to rear 

WT 

In 

Dimensioned 
in calling 
program 

R 

Weight of the ith payload 
(payload group), front 
to rear 

N 

In 

1 

I 

Number of payloads 
(payload groups) in 
the cargo bay 

IFLAG 

Out 

1 

I 

CG status flag: 


1 indicates the CG of 
the payload combi- 
nation is to the 
front of the most 
forward allowable CG 
(fails); 

0 indicates that the 
combination meets CG 
requirements 
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Parameter 

name 


In /Out 


Dimension 


Description 


jm 


1 Indicates the C6 of 
the payload combi- 
nation is to the rear 
of the allowable CG 
envelope (fails) 


METHOD 


Subroutine C6TEST determines whether a given payload combination in a spe- 
cific configuration meets CG requirements within the Shuttle cargo bay. 
First, the CG of the group of payloads in the bay is computed in the fol- 
lowing manner: 


CG » 


i-1 



i«l 


where 

» ARMj (see calling arguments) 

* WTj (see calling arguments) 
n » Number of payloads in the cargo bay 

Subroutine CONSTR is then referenced to determine if the computed CG is 
within the allowable CG envelope. (An empty cargo bay automatically meets 
CG requirements.) 

• Labeled CO^iON used: C3 


ASSUMPTIONS 

1. Payloads are initially loaded with increasing weight toward rear of 
cargo bay. 

2. OMS kits are placed at rear of cargo bay. 

3. A lab payload is loaded in front of any other payload(s). 

4. Attached payloads are loaded in front of deploy payloads. 

5. Center -of -gravity distances are measured from front of payload. 


ROUTINES CALLED 


CGLOAD, C6M0V, CGMPLD, CGNSRT. CONSTR 

CALLED BY 

CGIN 







SUBROUTINE COMB 


IDENTIFICATION 


Name (Title) 

Author, Date 
Machine Identification 
Source Language 


- COMB (Combination Generator) 

• J. M. Williams, August 1975 

• UNIVAC 1110 

- FORTRAN V 


PURPOSE 


Subroutine COMB generates the possible combinations for MPLS; the feaslole 
combinations are kept and used to generate the remaining combinations. 


USAGE 


e Calling Sequence 

CALL COMB ($N, NPLNYR. MAXPL, IPASS, IMM, Kl, IJ) 


Arguments : 





Parameter 

name 

In/Out 

Dimension 

Type 

Description 

$N 

In 


m 

Statement number In the 
calling program to which 
control is transferred 
when all the combinations 
have been generated 

NPLNYR 

In 

1 

I 

Number of single mission 
payloads 

MAXPL 

In 

1 

I 

Maximum number of payloads 
allowed on a combination 

IPASS 

In/Out 

1 

I 

A flag, when set to zero, 
causes the single mission 
payloads to be generated; 
If nonzero, the remaining 
combinations will be 
generated 

IMM 

Out 

1 

I 

Number of payloads in the 
current combinations 

Kl 

In/Out 

1 

I 

Index number of the cur- 
rent combination; if the 
combination is rejected, 
this number Is decremented 
by 1 
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Parameter 

name 

In/Out 

Dimension 

IJ 

Out 

6 


Type Description 

I The payload combination. 
The array is used as a 
pointer into COW^N Cl. 

The IJ array is stored in 
the IC array of COMMON C14 


• Labeled COMMON used: C7, C34 


METHOD 


Subroutine COMB generates the combination of payloads for MPLS evaluation 
by using the results of previous combinations. The combinations are 
generated in sets; each set is generated from the previous set. This 
scheme allows only those combinations to be generated as a result of suc- 
cessful feasible combinations. For example: 


Initial single 
payloads 

1 

2 

3 

4 


Doubles 

12 * 

13* 

14 

15* 

23 

24* 

25 

34* 

35* 

45* 

payloads. 


5 


*Indicates a rejected combination of 


Triples 

235 


RESTRICTIONS 
• Operational 

A maximum of 4000 combinations may be generated for each set with 
M payloads. 


ROUTINES CALLED 
REDUNT 


CALLED BY 
MPLS 
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SUBROUTINE CONSTR 


IDENTIFICATION 

Name (Title) - CONSTR (Center -of -Gravity Constraint) 

Author, Date - E. H. Perrenot, February 1976 

Machine Identification - UNIVAC 1110 

Source Language - FORTRAN V 


PURPOSE 


Subroutine CONSTR supplies minimum and maximum allowable centers of grav- 
ity for a given total payload weight. 


USAGE 


• Calling Sequence 

CALL CONSTR (TWT, CMIN, CMAX) 
Arguments: 


Parameter 

name 

In/Out 

Dimension 

Type 

Description 

ivr 

In 

1 

R 

Total weight of payloads 


in the cargo bay (plus 
third stage and fuel, if 
applicable) 


CMIN 

Out 

1 

R 

Minimum CG constraint (in 
feet from the front of thi 
cargo bay) 

CMAX 

Out 

1 

R 

Maximum CG constraint 


METHOD 

CONSTR constructs a table of weights from 500 to 65,000 lb in 1500-lb 
increments. A payload combination weight is then checked against this 
table and the two weight values, which are found on either side of the ref- 
erence weight, are used to locate the minimum and maximum CG constraints 
for each weight. The minimum and maximum CG constraints are then calcu- 
lated for the reference weight by linear interpolation. 
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ROUTINES CALLED 


None 

CALLED BY 


CGTEST, READIN 


Reserved page 


SUBROUTINE CPRNT 


IDENTIFICATION 

Name (Title) 

Author, Date 
Machine Identification 
Source Language 


CPRNT (Detailed Print Routine) 
J. Williams, March 1976 
UNIVAC 1110 
FORTRAN V 


PURPOSE 


Subroutine CPRNT is a special purpose print routine used to display 
detailed information pertaining to feasible combinations. 


USAGE 

• Calling Sequence 
CALL CPRNT 

• Labeled COMMON used: C2, C8, CIO, Cll, C25 


METHOD 


Subroutine CPRNT displays information pertaining to the EPS, the missions 
AV requirements, and discrete weight changes. 


ROUTINES CALLED 
None 


CALLED BY 
DISPLY 
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SUBROUTINE CPTEST 


IDENTIFICATION 

Name (Title) - CPTEST (Combination Preliminary Testing 

Routine) 

Author, Date - J. Williams, July 1975 

Machine Identification - UNIVAC 1110 

Source Language - FORTRAN V 


PURPOSE 


Subroutine CPTEST performs the flight sequence independent tests for a 
given payload combination. 


USAGE 


f Calling Sequence 

CALL CPTEST ($N, I YEAR) 


Arguments: 

Parameter 

name 

In/Out 

Dimension 

Type 

Description 

$N 

- 

- 

- 

The statement in the call 
1ng program to which con- 
trol is transferred if an 
error is indicated 

I YEAR 

In 

- 

I 

The year that the combina 
tion of payloads is to be 
f lowrt 


• Labeled COMMON used: Cl, C2, C5, C6, C7, C8, C9, CIO, C12, C14, C25, 

C30, C39 


METHOD 


Subroutine CPTEST performs flight sequence independent tests and 
Initializes parameters for use In statistical analysis and flight depen- 
dent tests. The method Is as follows: 

1. Payload combination conformity constraint tests are made. The first 
constraint test is a function of redundant payloads on the same 
flight; the remaining conformity tests are a function of mission type 
and the payload discipline mix. 

2. Orbiter conformity constraint tests are made to determine if each 
combination is within orbiter limits. The orbiter limits are a 
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function of the cargo bay length, the nuaximum weight allowed on 
the TSV, the number of TSV payloads, and number of payloads which 
require a dedicated TSV. 

3. Subroutine SOIL is called to perform the flight sequence dependent 
tests. 

4. Subroutines STATS and MIXTST are called to tabulate data for statistical 
analysis of payload mission types and discipline mix. 


RESTRICTIONS 


• Operational 

K6 » 1 - Mission Type 
» 2 - Total Wt up 
= 3 - Total Wt down 
= 4 - Need Dedicated Tug 
= 5 - NTU6S 73 

= 6 - No Tugs meet Wt & length 
» 7 - Total length up 
= 8 - Total length down 
» 9 - Discipline Mix 
= 10 - Seq. Test 
= 11 - RCS Capacity 
= 12 - Redundant Payload 
» 13 - INCL Range > .5° 


ROUTINES CALLED 

DECOMP, ERRPRT, FEASBL, FLY IT, MIXTST, SDTL STATS 


CALLED BY 


SUBROUTINE DECOMP 


IDENTIFICATION 


Name (Title) 

Author, Date 
Machine Identification 
Source Language 


- DECOMP (Decompose) 

SYNTEZ (Compose) 

- J. Williams, August 1975 

- UNIVAC 1110 

- FORTRAN V 


PURPOSE 


Subroutine DECOMP is used to separate each digit of a multidigit integer 
number into a list of single digit integer words; entry point SYNTEZ is 
used to generate a single integer word from an input list. 


USAGE 


• Calling Sequence 

CALL DECOMP (N, M, NOYES, NARRAY) 
CALL SYNTEZ (N, M, NOYES, NARRAY) 
Arguments : 

Parameter 


name 

In/Out 

Dimension 

Type 

Description 

N 

In/Out 

1 

I 

Number of words in NARRAY 

M 

In 

1 

I 

Number of digits each word 
(NARRAY) will occupy in 
NOYES 

NOYES 

In/Out 

1 

I 

An integer formed from 
the integer list NARRAY 

NARRAY 

In/Out 

6 

I 

A list of integers which 
range in value from 1 to 
9 


METHOU 

Subroutine DECOMP uses the MOD function to separate each integer digit 
from the word NOYES. Entry point SYNTEZ forms the integer word from a 
list by first sorting the integers into descending order. 


RESTRICTIONS 


• Operational 

The largest integer that can be decoded is nine digits. 
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ROUTINES CALLED 
SORT 

CALLED BY 


CPTEST, INLIST. MIXTST. PRTLST 


SUBROUTINE DISPLY 


IDENTIFICATION 

Name (Title) 

Author, Date 
Machine Identification 
Source Language 


- DISPLY (Display Routine) 

- J. Williams, August 1975 

- UNIVAC 1110 

- FORTRAN V 


PURPOSE 


Subroutine DISPLY prints the payload characteristics and associated infor- 
mation for a feasible mission. 


USAGE 


• Calling Sequence 

CALL DISPLY (MM, M, IC, IB, NAMEl, LAUNCH, 

* NTUGPL, TUG, ITUG, NOKITS, PWMARG, PCTUSE, FLOAD, 

* POINC, POALT, ALT, XINC, TOTLU, TOTLD, TOTWU, 


* TOTWD, TUGDV, ORBDV, 
Arguments : 

, NOYES, IDENT) 



Parameter 

name 

In/Out 

Dimension 

Type 

Description 

MM 

In 

1 

I 

Flight number 

M 

In 

1 

I 

Numbers of payloads on the 
flight 

IC 

In 

6 

I 

Payload numbers which rep- 
resent the combination 

IB 

In 

6 

I 

Payload numbers ordered 
with respect to TSV and 
orbiter events 

NAMEl 

In 

6 

I 

Numerical mission type 

LAUNCH 

In 

1 

I 

An integer set to 1 or 2 
to indicate an ETR or WTR 
1 aunch 

NTUGPL 

In 

1 

I 

Number of TSV payloads 

TUG 

In 

1 

I 

TSV number used in this 
mission 

ITUG 

In 

6 

I 

Payload numbers of the TSV 
payloads 


5-66 


Parameter 

name 

In/Out 

Dimension 

Type 

Description 

NOKITS 

In 

1 

I 

Number of OMS kits used 

PWMARG 

In 

1 

R 

Additional payload weight 
the orb Iter could carry on 
this flight 

PCTUSE 

In 

1 

R 

Percentage of the first 
OMS kit used 

FLOAO 

In 

1 

R 

Load factor 

POINC 

In 

1 

R 

Inclination of the first 
orbit 

POALT 

In 

1 

R 

Altitude of the first 
orbit 

ALT 

In 

1 

R 

Altitude of each payload 
In the combination 

XINC 

In 

1 

R 

Inclination of each pay- 
load In the combination 

TOTLU 

In 

1 

R 

Total payload length at 
launch 

TOTLD 

In 

1 

R 

Total payload length at 
landing 

TOTWU 

In 

1 

R 

Total payload weight at 
launch 

TOTWD 

In 

1 

R 

Total payload weight at 
landing 

TUGDV 

In 

1 

R 

Total TSV AV 

ORBOV 

In 

1 

R 

Total orbiter AV 

NOYES 

In 

1 

I 

Not used 

IDENT 

In 

12 

A 

A list of two-word payload 
names In the combination 


METHOD 


Subroutine DISPLY prints a table of data related to each feasible comblna 
tion; the subroutine contains no special computations. 
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RESTRICTIONS 


• Operational 

ROUTINES CALLED 
CPRNT 

CALLED BY 


FEASBL, FLTSUM. FNDFLT 


FUNCTION OLTAV 


IDENTIFICATION 
Name (Title) 


Author, Date 
Machine Identification 
Source Language 


DLTAV (AV function 1) 

OVEL (AV function 2) 

OVIPK (AV from insertion to the parking orbit) 
DVDORB (deorbit AV to landing) 

J. Williams, August 1975 
UNIVAC 1110 
FORTRAN V 


PURPOSE 


FUNCTION DLTAV and its three entry points are used to compute the AV re- 
quirements for the MPLS. DLTAV computes the AV between orbits for the ith 
and jth payloads. DVEL computes the AV between orbits for two payloads by 
specifying their altitudes and inclinations. DVIPK computes the AV from 
insertion to the first parking orbit and DVDORB computes the deorbit AV to 
landing. 


USAGE 

• Calling Sequence 

X • DLTAV (I,J) 

X « OVEL (E,B,C,0) 
X • OVIPK (HH) 

X • DVDORB (H,XIN) 


Arguments : 

Parameter 

name In /Out Dimension 

I In 1 

J In 1 

E In 1 

B In 1 

C In 1 


Type Description 

I Index of the 1th payload 

I Index of the jth payload 

R Orbital altitude of the 

ith payload 

R Orbital altitude of the 

jth payload 

R Inclination of the ith 

payload 
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0 

In 

1 

R 

Inclination of the jth 
payload 

HH 

In 

1 

R 

Altitude of the first 
parking orbit 

H 

In 

1 

R 

Altitude of the last 
parking orbit before 
landing 

XIN 

In 

1 

R 

Inclination of the last 
parking orbit before landing 


• Labeled COMMON used: Cl 
METHOD 


Function DLTAV and Its three entry points calculate the AV requirements 
for the MPLS. The functions use a Hohmann transfer algorithm at the inser- 
tion and orbital phases of the mission; the deorbit AV is computed using 
an empirical equation. 

1. ENTRY OVIPK 


a » (rp^ + ra ^)/2 


where 

a * Semimajor axis 
rp^ » Perigee radius at insertion 
* Apogee radius at insertion 



where 

U » Gravitational constant 

Vp^ * Perigee velocity of the insertion orbit 


«1 “ ('•pi '"te)/2 
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where 


I 


* The semimajor axis of the transfer ellipse 
rtg * The apogee radius of the transfer ellipse 


V 


P 



where Vp • The perigee velocity of the transfer ellipse 


I W r 

V~ 


P1_ 

»"t. 


where Vj » The apogee velocity of the transfer ellipse 

Vc 


where Vj. » The circular velocity of the transfer ellipse 


and AVi « y (Vp - Vp^) + (Vc - Vj) 

where AVj « The delta velocity required to transfer from Insertion to the 
Initial parking orbit 

2. Function OLTAV and entry point OVEL 

These two functions perform Identical tasks and differ only in their 
calling arguments. Function OLTAV computes the AV to transfer from 
the 1th payload orbit to the jth payload orbit. OVEL permits direct 
entry of orbital altitudes and Inclinations; the transfer goes from 
the E to B altitude. 


« * (»’ai ^ >" a 2)/2 
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where 




a The apogee radius of the initial orbit (E) 


rgg = The apogee radius of the final orbit (B) 

Ai a ll • ^2 

where 

11 a The inclination of the initial orbit 

1 2 = The inclination of the final orbit 

If the altitude of the initial orbit is greater than the final orbit, then 

Aia = Ai 

and Aijj = 0 

where 

Aig a The change in inclination at the first impulse point 

Ai|j * The change in inclination at the second impulse point 

If the altitude of the initial orbit is less than or equal to the final 
orbit, then 



Aia 

a 0 

and 

Alb 

a Ai 

Then 

Vci = 

v^/»'ai 



^ ’"a2 

and 

Vei * 

a »*ai 
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where 



» The circular velocity at the first impulse point 
Vgj^ » The elliptical velocity at the first impulse point 





The delta velocity of the first impulse is computed as 
AVi = 


The circular and elliptical velocity of the second impulse point is 
computed as 


1 

■ 

2 

(Vci - Vei)^ ♦ «ci Vei 




'C2 


32 


u r 


»e2 


ai 

"32 


where 

Vc 2 “ The circular velocity of the second impulse point 
Vgg * The elliptical velocity of the second impulse point 
The total velocity change required for the transfer is computed as 

4V . 4Vj * /(V,2 - 

3, Entry DVDORB computes the AV required for the deorbit maneuver. The 
Av is computed as a function of inclination and altitude. 

For altitudes (H) at the last orbit less than 140 n.mi. 

AVi « -0.05-H + 256.0 
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For altitudes greater than 140 but less than 457 n.mi. 

AVi = 1.4*H + 52.0 

For altitudes greater than 457 n.mi. 

AVi = 1.443*H + 32.0 

If the -.iiclination of the last orbit is greater than or equal to 28.5°, 
the AV as computed is output. Assuming the inclination is less than 
28.5°, then 

Cl - i 

AV » AVi + 2VcSin 

2C2 

where 
Cl = 28.5° 

C 2 = 57.29578, a conversion factor used to convert degrees to radians 
= The circular velocity at the altitude of t!.e last orbit 

The parameter is computed as 



R + H‘C 3 


where 

e = 1.40765392E16, gravitational constant in ft^sec^ 

R = The radius of the earth 

C 3 = 6076.11548, a conversion factor used to convert n.mi. to feet 
RESTRICTIONS 
• Analytical 

1. All orbital AV's are computed for circular orbits 

2. All plane change maneuvers are performed at the higher altitude 
orbit 
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ROUTINES CALLED 
None 

CALLED BY 


ORBITR, PL0NT6, TSV 


SUBROUTINE ERRPRT 


IDENTIFICATION 


Name (Title) 

Author, Date 

Machine Identification - 
Source Language 


ERRPRT (Errci Printing Routine) 
J. Williams, August 1975 
UNIVAC 1110 
FORTRAN V 


PURPOSE 


Subroutine ERRPRT is used to display the diagnostic messages associated 
with infeasible missions generated by MPLS. 


USAGE 

• Calling Sequence 

CALL ERRPRT (KERR,MIXC00) 

Arguments: 

Parameter 

name In /Out Dimension Type Description 

KERR In 1 I The error number to indi- 

cate the type of constraint 
that was violated 


MIXCOD In 1 I The discipline mix code 

• Labeled COMMON used: Cl, C7, C8, Cll, C14 


Block name 

Input 

Output 

Cl 

3201-3400 


C7 

2 


C8 

10,17-22,49-50 


Cll 

Not used 


C14 

7-18,25-30 


METHOD 



Subroutine 
tion of an 

ERRPRT is a logic routine that prints 
error number. Refer to section 3.2.2 

a diagnostic as a func 
for the diagnostic 


messages. 
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RESTRICTIONS 
• Operational 

Only 12 diagnostic messages are available. 

ROUTINES CALLED 
None 

CALLED BY 


CPTEST 


SUBROUTINE FEACOM 


IDENTIFICATION 

Name (Title) • FEACOM (Feasible Combination Routine) 

Author « Date - J. M. Williams, August 1975 

Machine Identification - UNIVAC 1110 
Source Language - FORTRAN V 


PURPOSE 


Subroutine FEACOM generates a data file of feasible missions by randomly 
selecting missions from the feasible mission file. The reduced data Is 
used by the SCA to form traffic models. 


USAGE 


e Calling Sequence 

CALL FEACOM (MM, FEASOP, NP) 
ARGUMENTS: 

Parameter 

name In /Out Dimension 

MM In/Out 1 


FEASOP - 1 
NP - 1 
• Labeled COMMON used: C33 


Type Description 

I The number of feasible 

missions; MM Is the number 
generated by the MPLS when 
Input; when output, It rep- 
resents the number of mis- 
sions kept 

I Not used 

I Not used 


METHOD 


Subroutine FEACOM generates a reduced list of missions from the feasible 
mission file for use In the SCA. The missions to be retained are selected 
by subroutine ALLOCT, which generates a list of missions for a specific In- 
terval. The Intervals used to select the mission numbers are obtained 
from COMMON C33,1n the array KCOMB. 
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RESTRICTIONS 
• Operational 

FEACOM will limit the number of feasible missions to 2000. 

ROUTINES CALLED 
ALLOCT 

CALLED BY 


TABLE 


SUBROUTINE FEASBL 


i ( 

IDENTIFICATION 

Name (Title) FEASBL (Feasible Mission Output Routine) 

Author, Date - J. Williams, August 1975 

Machine Identification - UNIVAC 1110 
Source Language - FORTRAN V 


PURPOSE \ 

subroutine FEASBL Is used to output data related to a feasible mission > 

both on mass storage and the printer. i 

i 

i 

USAGE ] 


• Calling Sequence 

CALL FEASBL (INCR, ICNT, lYEAR, lEE) 
Arguments : 


Parameter 

name 

In/Out 

Dimension 

Type 

Description 


INCR 

In/Out 

1 

I 

A flag used to count the 
number of missions written 
to a mass storage file, set 
to zero before each call 


ICNT 

In 

1 

I 

A flag used to Indicate If 
repeated payloads are not 
on this mission; Ignored 
If zero 


lYEAR 

In 

1 

I 

The year that the combina- 
tion of payloads Is to be 
flown 


lEE 

In 

1 

I 

The payload mission types 
for the combination of 
payloads 



• Labeled COMMON used: Cl, C5, C7, C8, C9, CIO, Cll, C12, C14, C15, 
C25, C33, C39 


METHOD 

Subroutine FEASBL Is used to set up data related to a feasible mission for 
purposes of output. The following procedure Is used for any feasible 
combinations. 
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1. The load factor for the orbiter is computed as the maximum of the 
ratio of total weight up versus the weight to orbit capability and the 
total weight down versus the maximum down weight allowed. 

2. Function ICHARG is refevenced to initialize the cost array. 

3. The up/down payloads are coded for print. 

4. The combination is scrutinized for repeated payloads. 

RESTRICTIONS 
• Operational 

ROUTINES CALLED 

DISPLY, FPTOMK, ICHARG 

CALLED BY 


CPTEST 


SUBROUTINE FLY IT 


IDENTIFICATION 

Name (Title) • FLYIT (Compatible Payloads Routine) 

Author, Date * J. Williams, August 1975 

Machine Identification - UNI VAC 1110 

Source Language - FORTRAN V 


PURPOSE 

Subroutine FLYIT determines If repeated payloads can fly on the same mis 
Sion. 


USAGE 

e Calling Sequence 

CALL FLYIT (ICNT, ICMl, ICM2, $N, lYEAR, ICM3) 
Arguments : 

Parameter 


name 

In/Out 

Dimension 

Type 

Description 

ICNT 

In 

1 

I 

Number of unique repeated 
payloads found 

ICMl 

In 

6 

I 

Index of the payload found 

ICM2 

In 

6 

I 

Number of payloads which 
have been duplicated for 
each duplicated payload 

$N 

m 

• 


The statement number to 
which control Is passed 
If an error occurs 

I YEAR 

In 

1 

I 

A two-digit number which 
represents the year under 
analysis 

ICM3 

In 

6x6 

I 

An array of payload mis- 
sion types. Each row in the 
matrix represents a set of 
mission types for a specif- 
ic redundant payload 

Labeled COMMON 

used: Cl, C5 
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METHOD 




Subroutine FLYIT compares the compatibility of all redundant payloads in 
a combination to the mission flight parameter, FLTPYP, of the payload 
model. The following procedure is used for any specific payload: 

1. The flight frequency parameter is decoded into a flag and two parame- 
ters which represent the nunrt>er of up/down payloads flown this year. 

The flag is used to Indicate whether up/down payloads can fly together. 

2. If the number of payloads of the same name exceeds three, the combina- 
tion is rejected. 

3. If the number of redundant payloads of the same name exceeds that 
allowed by the payload model, the combination is rejected. 

4. If both up and down payloads of the same name are on the combinations, 
the flag parameter must be checked to determine if the flight is allowed. 


ROUTINES CALLED 
None 




) 


CALLED BY 
CPTEST 


IT 
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SUBROUTINE FPTOMK 


IDENTIFICATION 

Name (Title) - FPTOMK (Foot -Pound -Second System to Meter- 

Kilogram-Second System) 

Author, Date - H. Chang, March 1976 

Machine Identification - UNIVAC 1110 
Source Language - FORTRAN V 


PURPOSE 

Subroutine FPTOMK transforms the measurenent of output data of MPLS from 
the English to the metric system. 


USAGE 

e Calling Sequence 

CALL FPTOMK (POALT, ALT, TOTLN, TOTLNl, TOTWTU. TOTWTO, PLMARG, CUROV, 
TOTOV) 

Arguments: 


Parameter 


name 

In/Out 

Dimension 

Type 

Description 

POALT 

In/Out 

1 

R 

Altitude of the Initial 
parking orbit 

ALT 

In/Out 

6 

R 

Orbital altitude of each 
payload 

TOTLN 

In /Out 

1 

R 

Total length up 

TOTLNl 

In/Out 

1 

R 

Total length down 

TOTvrru 

In/Out 

1 

R 

Total weight up 

TOTWTO 

In/Out 

1 

R 

Total weight down 

PLMARG 

In/Out 

1 

R 

Additional payload weight 
the Shuttle can carry on 
this flight 

CUROV 

In/Out 

1 

R 

Total Shuttle AV used 

TOTOV 

In/Out 

1 

R 

Total TSV AV used 
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METHOD 


SUBROUTINE FPTOMK changes the value of those variables in the calling argu 
ments from the foot-pound-second system to the meter-kilogram-second 
system by multiplying by conversion constants. 


ROUTINES CALLED 
None 

CALLED BY 


FEASBL 


FUNCTION ICHAR6 


IDENTIFICATION 

Name (Title) - ICHARG (Cost Coefficient Routine) 

Author, Date - J. Williams, August 1975 

Machine Identification - UNIVAC 1110 

Source Language - FORTRAN V 


PURPOSE 


Function ICHARG computes a selected cost coefficient for a specific feas- 
ible payload combination. 


USAGE 


• Calling Sequence 

J(I) = ICHARG (I, FLOAD) 
Arguments: 

Parameter 


name 


I 


FLOAD 


In/Out 

In 

In 


Dimension 

1 


Im 

I 


Description 

Index of the cost coeffi- 
cient being computed 

Load factor, the ratio of 
the total orb iter weight up 
to its capability, or the 
down weight to its capa- 
bility 


• Labeled COMMON used: CIO, Cll, C25 


METHOD 

Function ICHARG computes 8 of 12 integer cost coefficients of a mission 
for use in the SCA. The technique used allows the initialization or compu- 
tation of a coefficient based on the input argument I. The function has 
the following meanings for I: 


Value of I 


Set value of each flight equal to 

Unity 

Maximum of weight load factor up or down 
On-orbit OMS propellant required 
Minimum of unused weight capability up or down 
Maximum of length load factor up or down 
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6 

7 

8 

9 

10 

11 

12 


Cargo weight up 
Cargo length up 

Maximum of weight load factor up or down, 
or length load factor up or down 
Product of priority of constituent payloads 
Sum of sharability of constituent payloads 
Charge factor (unavailable) 

Unallocated 


Values for I » 9, 10 are computed in routine TABLE. 


i 
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SUBROUTINE ISORT 


IDENTIFICATION 

Name (Title) - ISORT (Sort Array and Rearrange Additional Array(s)) 

Author, Date - E. H. Perrenot, November 1975 

Machine Identification - UNIVAC 1110 

Source Language - FORTRAN V 


PURPOSE 


Subroutine ISORT sorts an array in either ascending or descending order 
and rearranges up to three arrays In the same sequence. 


USAGE 

e Calling Sequence 

CALL ISORT (A, N, B. C. 0, K, SWITCH) 
Arguments: 

Parameter 


name 

In/Out 

Dimension 

Type 

Description 

A 

In/Out 

N 

R 

Array to be sorted 

N 

In 

1 

I 

The number of words in 
array A (and B, C, and/or 
D, if used) 

B 

C 

0 

In/Out 

N 

R 

Arrays to be rearranged 

K 

In 

1 

I 

0 » sort A only 

1 = rearrange 8 

2 * rearrange B and C 

3 = rearrange B, C, and D 

SWITCH 

In 

1 

I 

> 0, sort will be In 

ascending order 

<0, In descending order 








METHOD 


Subroutine ISORT uses a binary search technique to reorder array A. If 
the options for K are exercised, B, C, and/or 0 w111 be rearranged In the 
same sequence as A. When a test Is made between two elements of the A 
array to determine which Is larger, a switch Is made depending upon 
whether the sort Is In ascending or descending order. If a switch Is 
made, the same respective elements In B, C, and/or 0 are switched. 


SUBROUTINE lUSOV 


« t 
* • 

IDENTIFICATION 

Name (Title) < lUSDV (ISU AV Routine) 

INSTG (Initialize lUS Vehicles) 

Author, Date • J. Williams, April 1976 

Machine Identification - UNI VAC 1110 
Source Language - FORTRAN V 


PURPOSE 


Subroutine lUSOV Is used to compute the AV for a specific lUS which was 
predefined by entry point INSTG. • 


USAGE 

• Calling Sequence 

CALL lUSOV (L, WT, TOV, V) 
CALL INSTG (lOUT) 

Arguments : 

Parameter 


name 

In/Out 

Dimension 

Type 

Description 

L 

In 

1 

I 

The index of the lUS being 
used 

WT 

In 

1 

R 

The payload weight carried 
on the lUS 

TOV 

Out 

1 

R 

The total lUS AV required 

V 

Out 

Dimensioned 
in calling 
program 

R 

An array of AV's computed 
for each stage of the lUS 

lOUT 

Out 

1 

I 

The number of lUS vehicles 
which may be used 


• Data In/Out 

Labeled COMMON (refer to the labeled COMMON description section): 

Block name Input Output 

C6 91-105 1-46,61-75 

C13 1-166 167-181 
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METHOD 


Entry point INST6 computes the weight and length of an lUS vehicle defined 
by the payload model; refer to table II. The computation Is performed by 
a summation of a11 lUS stage weights and lengths defined for a specific 
lUS. 

Subroutine lUSOV uses the total loaded weight of the IDS to compute the LV 
requirements for each stage. The equation used to compute the require- 
ment Is a form of the Ideal rocket equation and Is 


4V . g-Isp In Ml Mp 


where 

g * Acceleration due to gravity 
JsD * specific impulse for the orbiter OMS engines 
* Natural logarithm 
Wj ‘Vehicle weight before the burn 
Wp * Vehicle weight after the burn 

The fuel requirement for each stage is known; therefore, the problem 
solution is simplified. 
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SUBROUTINE lUSOPT 


IDENTIFICATION 

Name (Title) - lUSOPT (lUS Option Routine) 

Author, Date - J. Williams, April 1976 

Machine Identification - UNIVAC 1110 

Source Language - FORTRAN V 


PURPOSE 


Subroutine lUSOPT determines feasibility of a mission for a specific lUS 
vehicle, given the weight of the payload to be carried. 


USAGE 

• Calling Sequence 

CALL lUSOPT (HAl, HA2, XINCl, XINC2, PYLDWT, TW, ISN, TL, TU6DV, $) 


Arguments : 

Parameter 

name In/Out Dimension 

HAl In 1 

HA.: In 1 

XINCl In 1 

XINC2 In 1 

PYLDWT In 1 

TW Out 1 

ISN In 1 

TL Out 1 

TUGDV Out 1 


Type Description 

R The altitude of the circular 

orbit at which the lUS and 
its payloads are deployed 
from the Shuttle 

R The altitude of the payload 

final circular orbit. If 
HAl < 0 then HA2 is the C3 
energy required rather than 
altitude 

R The inclination of the lUS 

deployment orbit 

R The desired inclination 

R Weight of the payload 

R Weight of the lUS 

I Index of the lUS used 

R Length of the lUS 

R AV required by the lUS 
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$N 


A statement number 1n the 
calling program to which 
control Is transferred 
when an error occurs 


e Data In/Out 

Labeled COMMON (refer to the labeled COMMON description section): 

Block name Input Output 

C3 1 

C13 1-15,167-181 


METHOD 

Subroutine lUSOPT verifies whether a payload(s) can be flown on a specific 

lUS. The logic optionally allows the use or C3 energy cases or permits the 

user to specify altitudes and inclinations. The method is as follows: 

1. Subroutine lUSDV is called to compute the lUS AV available. 

2. The Hohmann transfer AV is computed. 

3. The AV from each stage of the lUS is summed until it exceeds the transfer 
AV, or until there are no more stages. If the lUS stage AV is less than 
the transfer AV, the case fails. 

4. Next, the transfer AV for the second burn is computed by readjusting 
the plane change. 

5. If the remaining lUS stages are within 10 ft/sec of the transfer AV, the 
case is converged. If not, the initial plane change is modified and the 
program transfers to step 2. The problem is considered infeasible if 
200 iterations have been exceeded. 

The basic form of the Hohmann equations used is given in the documentation 

of FUNCTION DLTAV. 


RESTRICTIONS 


• Operational 

Subroutine lUSDV is required. 
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SUBROUTINE LIQUID 


IDENTIFICATION 

Name (Title) - LIQUID 

Author, Date • Frank Roth and Jack Williams, June 1976 

Machine Identification - UNIVAC 1110 EXEC 8 

Source Language • FORTRAN V 


I 

4 


PURPOSE 

The purpose of LIQUID Is to compute the AV and delta weight (DU) associated 
with the liquid lUS's which are needed for the Sequence Dependent Test Logic 
(SDTL) subroutine. ^ 


USAGE 

• Calling Sequence 
CALL LIQUID ($N) 

Argument: 

Parameter 

name In /Out Dimension 

$N “ « 


j 


Description } 

The statement In the calling program 
to which control Is transferred If the 
lUS does not meet Its weight and/or 
AV requirements 


• Data In/Out 

Labeled COMMON (Refer to labeled COMMON description section): 
Block name In Out 


C2 

2-3,40 

4-32 

C6 

1-60,91-105 


C8 

1-47 


CIO 

1-6 

2,7,11-25 

C25 

3,9,10-13 
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METHOD 


The AV's and DW's for the liquid stage are calculated. They are added to 
their respective totals and tested to determine If they are within restric- 
tions. If requirements are met, the exit Is made via the nonnal return. 

If not, the error exit ($N) Is taken. 


RESTRICTIONS 

e 


Operational 

Subroutine EXP is required. 


SUBROUTINE LORBWT 


IDENTIFICATION 

Name (Title) - LORBWT 

Author, D~te - Frank Roth and Jack Williams, June 1976 

Machine Identification - UNIVAC 1110 EXEC 8 

Source Language - FORTRAN V 


PURPOSE 


The purpose of LORBWT Is to compute the launch and deorbit weights 
of the or biter. 


USAGE 

e Calling Sequence 
CALL LORBWT ($N1, $N2) 


Arguments : 


Parameter 

name 

In/Out 

Dimension 

Type 

Description 

$N1 

• 

- 

- 

The statement number In the 
calling program to which 
control will pass If the 
weight Is excessive 

$N2 

• 


* 

The statement number In the 
' calling program to which 
control will pass If aV 
requirements are not met 


e Data In /Out 

Labeled COMMON (Refer to labeled COMMON description section): 


Block name In Out 


C2 

2-3,40 

4-32 

C3 

1 

2-10 

C6 

1-60,91-105 


C8 

1-47 


CIO 

1-6 

2,7,11-25 

Cll 

7,12 


C25 

3,9,10-13 
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METHOD 


The weight of the vehicle. Including payloads but not fuel, and the dv re* 
quired to change orbits, based on each payload are calcula^:ed. The weight 
of QMS fuel Is computed and tested against orbiter capacity. If this test 
Is passed, the number of OMS kits required Is computed. A new AV Is calcu* 
lated and the Iteration Is continued until enough fuel can be carried to 
produce the required AV. If more than three kits are required, the program 
exits through RETURN2 and control goes to $N2 In the calling program. RETURNl 
Is taken when the wel^t limit Is exct ided. Control goes to $N1 In the call- 
ing progrun. The normal return Is talen when both criteria are met. 


resthiotions 

e Operational 

Subroutines OMSCK and EXP are required. 


SUBROUTINE MIXTST 


IDENTIFICATION 

None (Title) - MIXTST (Discipline Mix Testing Routine) 

- MXSTAT (Display Discipline Frequency Routine) 

Author, Date - J. Williams, August 1973 

Machine Identification • UNIVAC 1110 
Source Language • FORTRAN V 


PURPOSE 


Subroutine MIXTST Is used to generate a list of up to 100 payload disci- 
plines; entry point MXSTAT Is used to display the frequency of occurrence of 
each discipline mix. 


USAGE 

e Calling Sequence 

CALL MIXTST ($N, KK, MIXCOO) 
CALL MXSTAT 


Arguments 


Parameter 

name 

In/Out 

Dimension 

Type 

Description 

$N 

- 

- 

- 

The statement number In the 
calling program to which 
control Is passed If an 
error occurs 

KK 

In 

1 

I 

A flag, when set nonzero 
causes the discipline mix 
to be checked against a 
list In COMMON 

MIXCOO 

In 

1 

I 

The discipline mix to be 
verified or stored 


e Data In/Out 

Labeled COMMON (refer to the labeled COMMON description section): 
Block name Input Output 

1-221 21-220 


C30 


5-98 


METHOD 


C* Subroutine MIXTST cumulates numeric payload discipline m’x codes (PDMC) 

for use by CPTEST as a constraint. The Information pertaining to the 
PDMC Is displayed from MXSTAT from subroutine MPLS after the analysis 
of a particular year has been completed. 


RESTRICTIONS 
t Operational 

Subroutine OECOMP is required. 
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SUBROUTINE MPLS 


IDENTIFICATION 

Name (Title) - MPLS (The MPLS Executive Routine) 

Author, Date - 0. Williams, August 1975 

Machine Identification - UNIVAC 1110 

Source Language - FORTRAN V 


PURPOSE 


Subroutine MPLS is the executive routine to control the initialization of 
payload data, to generate combinations referencing the payload numbers, and 
to cause each combination to be tested for feasibility. 


USAGE 


• Calling Sequence 

CALL MPLS (I YEAR, MAXLP) 


Arguments: 


Parameter 

name 

In /Out 

Dimension 

Type 

Description 

lYEAR 

In 

1 

I 

The last two digits of thi 
year under analysis 

MAXLP 

In 

1 

I 

The maximum number of pay 
loads allowed on a combi- 
nation 


• Data In/Out 

Labeled COMMON (refer to the labeled COMMON description section); 
Block Name Input Output 


Cl 

3401-3600 

C5 

1-100,202 

C6 

61-90 

C7 

1-109 

C9 

2 

CIO 

(Not used) 

Cll 

(Not used) 

C15 

2 
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METHOD 


Subroutine MPLS is the executive for the MPLS. It uses the following 

procedure : 

1. The number of TSV's which are available for use are determined 
by examining their year of availability. 

2. Subroutine PLIST is referenced to generate a working list of payloads. 

3. Subroutine PL0NT6 is referenced to determine which payloads in 
the list require TSV's. 

4. Subroutine COMB is called to generate a unique payload combination. 

5. Subroutine SORTL is referenced to arrange the payload combination 
in order of ascending altitude. 

6. A call to subroutine CPTEST is made to perform the sequence dependent 
and independent test. 

7. Once all the combinations have been generated, subroutine FEACOM 
is called to generate i list of missions. 

8. If required, the number of feasible combinations is reduced to 
500 or less. 

Subroutines STATS and MIXTST are called to output tables related to 

the discipline mix and mission types. 


RESTRICTIONS 
t Operational 

Subroutines PLIST, PLONTG, COMB, SORTL, CPTEST, TIME, FEACOM, STATS, 
and MIXTST are referenced. 


SUBROUTINE OMSCK 


IDENTIFICATION 

Name (Title) - OMSCK (Checks Required Number of OMS Kits) 

Author, Date - J. Eggleston, August 1976 

Machine Identification - UNIVAC 1110 EXEC 8 
Source Language - FORTRAN V 


PURPOSE 

The purpose of OMSCK is to determine the number of OMS fuel kits required 
to execute a particular mission and their associated weight. 


USAGE 


• Calling Sequence 

CALL OMSCK (POINC, ORBOV. OMSVfT. NOMSKT) 
Arguments : 


Parameter 

name 

In/Out 

Dimension 

Type 

Description 


POINC 

In 

1 

R 

Parking orbit inclinatic' 


ORBOV 

In 

1 

R 

Total orbiter AV for tht 


OMSWT 

Out 

1 

R 

Total weight of OMS fuel 

required 

NOMSKT 

Out 

1 

I 

Number of OMS fuel kits required 


• Labeled COMMON (refer to labeled COMMON description section): 

Block name Input Output 

C32 1-19 

METHOD 

The number of OMS fuel kits required Is Initially set to four. The 
weight of the OMS fuel needed and the number of kits are calculated as 
a function of the Initial parking orbit and total AV. Both are returned 
as output. 




RESTRICTIONS 


r 




t Operational 

Subroutine EXP is recjuired. 






S' 

-4 !> 
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SUBROUTINE ORBITR 


IDENTIFICATION 

Name (Title) - ORBITR (Orbit Calculations) 

Author, Date - F. Roth and J. Williams, June 1976 

Machine Identification - UNIVAC 1110 EXEC 8 
Source Language - FORTRAN V 


PURPOSE 

The purpose of ORBITR is to compute the AV requirements for deorbit. 


USAGE 

0 Calling Sequence 

CALL ORBITR (TFLAG, OFLAG, IPM, $) 


Arguments : 


Parameter 

name 

In /Out 

Dimension 

im. 

Description 

TFLAG 

In 

1 

Logical 

= .TRUE. There are TSV 
payloads 

= .FALSE. No TSV payloads 

OFLAG 

In 

/ 

1 

Logical 

* .TRUE. There are orb iter 

payloads 

* .FALSE. No orb iter payloads 

IPM 

In 

1 

I 

Payload permutation 

$ 


• 

• 

Statement to which control 


is transferred if payload 
length exceeds XLMAX 


• Data In/Out 

Labeled COMMON (Refer to labled COMMON description section): 


4 ; 
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ick name 

la 

Out 

Cl 

2001-2600 



2801-3600 



7201-7800 


C2 

2-3,40 

4-32 

C3 

1 

2-10 

C8 

1-47 


CIO 

1-6 

2,7,11-25 

C25 

3,9,10-13 



METHOD 


The deorbit weight is computed by starting with the final down weight and 
computing the weight of expendables used to perform the most recently enacted 
maneuver. Stepping back through each maneuver to launch, the total launch 
weight is calculated along with the requirements. Fuel load is altered as 
required and the process repeated until fuel requirements are met or the 
orbiter limits exceeded. 


RESTRICTIONS 
a Operational 

Subroutines PERM, DLTAV, and WINCL are required. 
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S > 


I 

i 


5 - 




2 


NREUSE 


YINC 

YALT + 20 

OVEL (YALT, ROALT, YINC, YINC ) + REDZDV 
EXP (R0DV2/C0RB) 

DVDORB(QOALT,YINC) 

EXP (R0DV3/C0RB) 


N EX PEN 


E0DV3 = DVDORB (YALT, YINC) 
E0MR3= F-XP(E0DY3/C0RB) 


NTUGPL 


DVORB (NCRBP3) = E0DY3 
OMBMR (NGRBP3)= E0MR3 
POALT = YALT 


RETURN 
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SUBROUTINE PERM 


IDENTIFICATION 

Name (Title) • PERM (Permutation Generator) 

Author, Date - J. Williams, August 1975 

Machine Identification - UNIVAC 1110 

Source Language - FORTRAN V 


PURPOSE 

Subroutine PERM generates a permutation of a set of N variables taken 
N at a time. One permutation 'is generated for each call. 


USAGE 


e Calling Sequence 

CALL PERM (N, lENO, IPERM, ICNT) 


Arguments : 
Parameter 

name 

In/Out 

Dimension 

Type 

Description 

N 

In 

1 

I 

Number of variables In the 
permutation 

lENO 

In/Out 

1 

I 

An Initialization flag 
• 0, initialize the permu- 
tation generator 
fO, generate the next 
permutation 

IPERM 

Out 

Dimensioned 
in calling 
program 

I 

A list which contains the 
new permutation 

ICNT 

Out 

Dimensioned 
In calling 
program 

I 

An array of counters used 
to generate a permutation 

METHOD 

Each permutation Is ' 

formed by a cyclic permutation of all or part of 


a previous permutation. The logic Is structured such that a single 
call to PERM generates a permutation. 
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SUBROUTINE PLOSCN 



IDENTIFICATION 

Name (Title) - PLOSCN (Scans Payloads In Combination) 

Author. Date - E. H. Perrenot, October 1976 

Machine Identification - UNIVAC 1110 
Source Language - FORTRAN V 


PURPOSE 

Subroutine PLOSCN scans payloads within a combination In the order 
of their operations and groups them Into mission events. 


I 

1 

f 

I 




USAGE 

e Calling Sequence 


CALL PLOSCN (NPL, IPTR. TOO. EVNT. NtVdT) 
Arguments : 

Parmneter 

na.Tie In/Out Dimension Type 

NPL In 1 I 


Description 

Number of payloads In the 
combination 


IPTR In 


TOO In 


Dimensioned 
In calling 
program 


Array containing pointers to 
payload data In array TOO (re- 
flects payload sequence within 
the combination) 


6x5 


R Array of payload data 


EVNT Out 6x4 


R Array of data concerning events 


NEVNT Out 


Number of events 


METHOD 

Subroutine PLOSCN groups payloads In a combination Into events. It 
accomplishes this task by examining payload characteristics such as 
altitude and need for a third stage. In defining events, the following 
guidelines are used: 


1. All payloads requiring a third stage and preceding the first non-third- 
stage payload are deployed at an altitude of 160 n. ml. If the first 
non-third-stags payload requires an altitude of greater than 160 
n. ml. 
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If third-stage payloads precede a non-third-stage payload with an 
altitude of less than 160 n. ml., they are deployed at the altitude 
of the non-third-stage payload. 

Excepting the above cases, no third-stage payload(s) ever comprises 
an event by Itself; It Is deployed at the altitude of the preceding 
non-third-stage payload. 

i 

I 

I 

I 




] 

i 

i 


\ 
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SUBROUTINE PL 1ST 


IDENTIFICATION 

Name (Title) - PLIST (Payload List Routine) 

Author^ Date - J. Williams, August 1975 

Machine Identification - UNIVAC 1110 

Source Language - FORTRAN V 


PURPOSE 


Subroutine PLIST searches the payload model and selects a list which can be 
flown in a particular year. 


USAGE 

• Calling Sequence 
CALL PLIST (I YEAR) 

Argument : 

Parameter 

name In/Out Dimension Type Description 

lYEAR In 1 I The last two digits of the 

year under analysis 

• Data In/Out 

Labeled COMMON (refer to the labeled COMMON description section): 


Block name 

Input 

Output 

Cl 

3401-6200,8201 


C5 

1-363 

C9 

50 


METHOD 




Subroutine PLIST forms a working list of payloads from the payload model by 
eliminating those payloads which do not fly in the year under analysis. 

In addition, payloads that are repeated or those which are up/down payloads 
are identified. The technique used is based on the definition of the variable 
FLTPYR which is described in detail in section 5.2. 

A distinction is made between nominal payloads and up/down payloads by using 
negative numbers to represent the mission type. 
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SUBROUTINE PLONTG 


IDENTIFICATION 

Name (Title) - PLONTG (Payload on TSV Routine) 

Author, Date - J. Williams, August 1975 

Machine Identification - UNIVAC 1110 
Source Language - FORTRAN V 


PURPOSE 


Subroutine PLONTG determines the TSV requirements for payloads to be 
flown In a particular year. 


USAGE 


• Calling Sequence 
CALL PLONTG 

• Data In/Out 

Labeled COMMON (refer to labeled COMMON description section): 


Block name Input Output 


Cl 2001-2600,2801-3400, 

8001-8200 

C5 1-100,202,264-363 364-463 

C8 1.3, 5, 7 

C9 50 

CIO 1-3,4 

Cll 7 

C25 10-11,13,15 


METHOD 


Subroutine PLONTG Is used to determine which payloads in the working 
list require a TSV. The following procedure is used to determine if 
a TSV Is required: 

1. If the dedicated TSV velocity parameter associated with that payload 
Is nonzero, a TSV Is required. 

2. If the payload's orbit exceeds 700 n.ml., a TSV Is required. 

3. If the payload when flown alone requires more than three OMS kits 

or has a payload margin less than zero, a TSV Is required. 

If all the conditions are met, then a 1 Is stored In the NEEDTG array. 




RESTRICTIONS 
• Operational 

Functions DVIPK, DVEL, 0V00R8, and subroutine OMSCK are required. 


SUBROUTINE REDUNT 


IDENTIFICATION 

Name (Title) - REDUNT (Redundancy Check Routine) 

Author, Date - J. Williams, August 1975 

Machine Identification - UNIVAC 1110 

Source Language - FORTRAN V 


PURPOSE 


Subroutine REDUNT Is used to eliminate payload combinations that have 
an Infeasible subset. 


USAGE 


t Calling Sequence 
CALL REDUNT ($N) 

Argument ; 

Parameter 

name In/Out Dimension Type Description 

$N - - - The statement number In the 

calling program to which 
control is transferred if 
an error occurs 

• Data In/Out 

Labeled COMMON (Refer to the labeled COMMON description section): 

Block name Input Output 

C34 All 

METHOD 


Subroutine REDUNT evaluates a candidate payload combination by comparing 
a subset of the combination to the previous generated set In the feasible 
mission file. The technique eliminates the second payload from the 
combination and compares It to a previous generated set, for example: 


Candidate 

Temporary 

Feasible missions 

combination 

set 

previous set 

ABODE 

ABCE 

A6CD 



ABCE 



ACOE 



ACOF 



ADFG 



BCOE 


Since the combination was generated by adding the last payload, E, then the 
subset ABCE must exist before the combination can be successful. This method 
avoids complex testing of a combination which has an infeasible subset. 


SUBROUTINE SOIL 




IDENTIFICATION 

Name (Title) - SDTL (Sequence Dependent Test Logic) 

Author, Date - Frank Roth and Jack W1111ai?is, June 1976 

Machine Identification - UNIVAC 1110 EXEC 8 
Source Language - FORTRAN V 


PURPOSE 


The purpose of SDTL Is to perform the sequence-dependent test logic 
for choosing payload permutations and third stage vehicles. It Is 
an executive routine that calls other modeling routines such as LORBWT, 
COIN, and TSV as they are needed. 


USAGE 

e Calling Sequence 
CALL SDTL ($N) 
Argument : 
Parameter 

name In/Out 


$N 


Dimension Type Description 

The statement In the calling 
program to which control Is 
transferred If the combina- 
tion Is Infeasible 


e Data In/Out 


Labeled COMMON (refer to the labeled COMMON description section); 


Block name 

Input 

Output 

C3 

1 

2-10 

C6 

1-60,91-105 


C8 

1-47 


CIO 

1-6 

2,7,11-25 

C25 

3,9,10-13 



METHOD 


Subroutine SDTL verifies that a payload combination Is feasible. It examines 
each permutation within the combination until It finds one that will fly with 
an available third stage vehicle (TSV). If no suitable TSV can be found, the 
next permutation Is obtained and the process repeated. If the payload cannot 
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fly on any available TSV, control goes to $N. If constraints allow the pay 
load to fly, the normal exit Is taken from the subroutine. The various con 
straints are tested by the modeling routines. 


RESTRICTIONS 
e Operational 

Subroutines LORBUT, COIN, and TSV are required. 















mm- 



f*- 


5-123 










SUBROUTINt SOLID 


IDENTIFICATION 

Name (Title) - SOLID 

Author, Date - Frank Roth and Jack Williams, June 1976 

Machine Identification - UNIVAC 1110 EXEC 8 

Source Language - FORTRAN V 


PURPOSE 

The purpose of subroutine SOLID Is to compute that portion of the total AV 
and total AV resulting from the use of a particular solid fuel TSV. 


USAGE 


e Calling Sequence 
CALL SOLID ($N) 
Argument : 




Parameter 

name In/Out 

Dimension 

Type 

Description 

$N 

- 

- 

The statement In the calling 
program to which control will 


pass If this TSV cannot be used 


e Data In/Out 

Labeled COMMON (refer to the labeled COM! JN description section): 
Block name Input Output 


Cl 

2001-2600,2801.3600 

7201-7800 


C2 

2-3,40 

4-32 

C3 

1 

2-10 

C8 

1-47 


CIO 

1-6 

2,7,11-25 


METHOD 

The program ensures that a11 the payloads have the same altitude and inclina- 
tion and are deploys. It computes total length and weight up and down by 
summing over all the payloads to determine it the payloads can fly on this 
TSV. If all criteria are passed. It computes the AV and AW for this rocket 
for this portion of the orbit. If the TSV falls to meet one of the criteria, 
the subroutine exits to $N. 
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RESTRICTIONS 
• Operational 

Subroutine lUSOPT Is required. 


u 
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SUBROUTINE SORT 


IDENTIFICATION 

Name (Title) - SORT (Descending Sort Module) 

Author, Date - J. Williams, August 1975 

Machine Identification - UNIVAC 1110 
Source Language - FORTRAN V 


PURPOSE 

Subroutine SORT sorts a list of N integers into descending order. 


USAGE 


• Calling Sequence 
CALL SORT (N, X, Y) 


Arguments : 


Parameter 

name 

In/Out 

Dimension 

Type 

Description 

N 

In 

1 

I 

Number of variables to be 
sorted 

X 

In 

Dimensioned 
in calling 
routine 

I 

Listed of integers to be 
sorted 

Y 

Out 

Dimensioned 
in calling 
routine 

I 

List of integers sorted in 
descending order 


METHOD 


Subroutine SORT arranges a list in descending order by searching the list 
to find the maximum number in the array; the tests are repeated N times. 
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SUBROUTINE SORTL 


IDENTIFICATION 

Name (Title) - SORTL (Ascending Order Sort) 

Author, Date - J. Williams, August 1975 

Machine Identification - UNIVAC 1110 
Source Language - FORTRAN V 


PURPOSE 

Subroutine SORTL sorts the HA array into ascending order and rearranges the 
lA array accordingly. 


USAGE 

e Calling Sequence 

CALL SORTL (M, IJ, HA, lA) 
Arguments: 

Parameter 


name 

In/Out 

Dimension 

Type 

Description 

M 

In 

1 

I 

Number of variables to be 
sorted 

IJ 

In 

Dimensioned 
in calling 
program 

I 

An array which is stored 
into lA 

HA 

In/Out 

Dimensioned 
in calling 
program 

I 

An array sorted into 
ascending order 

lA 

Out 

Dimensioned 
in calling 
program 

I 

The IJ array arranged in 
an order corresponding to 
the sorted HA array 


METHOD 



Subroutine SORTL arranges the HA array into ascending order by incrementing 
through the list to determine if it was less than the previous minimum value. 

If the ith word is greater than the previous word, the word values are switched 
and a counter is decremented. The procedure continues until all the words have 
been tested. Since each element of the lA array corresponds to the HA array, 
it is arranged in an order corresponding to the sorted HA array. 
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SUBROUTINE SORTX 


IDENTIFICATION 

Name (Title) - SORTX (Sort Ascending Order) 

Author, Date - J. Williams, August 1975 

Machine Identification - UNIVAC 1110 
Source Language - FORTRAN V 


PURPOSE 

Subroutine SORTX sorts a list of M integers into ascending order. 
USAGE 

• Calling Sequence 
CALL SORTX (M, lA) 

Arguments : 

Parameter 

name In /Out 

M In 

lA In/Out 


Dimension 

Type 

Description 

1 

I 

Number of variables to be 
sorted 

Dimensioned 

I 

Array to be sorted into 

in calling 
program 


ascending order 


METHOD 


Subroutine SORTX arranges the lA array into ascending order by incrementing 
through the list to determine if it was less than the previous minimum value. 

If the ith word was greater than the previous word, the word values are switched 
and a counter is decremented. The procedure continues until all the words have 
been tested. 
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SUBROUTINE STATS 

t 

IDENTIFICATION 

Name (Title) - STATS (Mission Type Status Routine) 

Author, Date - J. Williams, August 1975 

Machine Identification - UNIVAC 1110 

Source Language • FORTRAN V 


PURPOSE 

Subroutine STATS uses the mission type list to reject payload combinations 
as a function of the mission types. 


USAGE 


• Calling Sequence 


CALL STATS ($N, IB, 

M, INCR, MATCH, 

I START, 

lEND, lALT) 

Arguments : 





Parameter 

name 

In/Out 

Dimension 

Im 

Description 

$N 

In 


I 

Statement number in the 
calling program to which 
control is transferred if 
an error occurs 

IB 

In 

6 

I 

Mission type numbers of the 
payload sequence being 
evaluated 

M 

In 

1 

I 

Number of elements in IB 

INCR 

In 

1 

I 

Number of missions generated 
with the same sequence; the 
repeated missions stored 

MATCH 

Out 

/ 

1 

I 

A flag which denotes if non- 
zero that the mission types 
in IB correspond to the 
mission class codes in 
COMMON C12 

I START 

In 

1 

I 

First nonzero word in the 

— J • - _ J ^ _ A. 


mission type list 
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Parameter . 
name 

In /Out 

Dimension 

Jm 

Description 

lEND 

In 

1 

I 

Last nonzero word In 
the mission type list 

lALT 

In 

1 

I 

Not used 


• Data In/Out 

Labeled COMMON (refer to the labeled COMMON description section): 
Block name Input Output 


C9 3-49 

C12 1-54 


METHOD 


Subroutine STATS uses an Internal allowable list of mission-type codes to 
constrain candidate missions. If a candidate miss Ion- type's code does not 
correspond to the MSCLCD array in COMMON, It Is rejected; otherwise, the 
miss lor, IS accepted. 
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SUBROUTINE TSV 

c 

IDENTIFICATION 

Name (Title) - TSV (Third Stage Vehicles) 

Author, Date • F. Roth and 0. Williams, June 1976 

Machine Identification - UNIVAC 1110, EXEC 8 
Source Language - FORTRAN V 


PURPOSE 


The purpose of TSV is to compute all the data for AV and AW which is inde- 
pendent of fuel consumption. TSV calls the appropriate subroutine (SOLID 
or LIQUID) to complete data requirements. 


USAGE 


• Calling Sequence 


CALL TSV (TFLAG, LTSV, 

, $N) 


Arguments : 




Parameter 




name 

In/Out 

Dimension Type 

Description 

TFUG 

In 

1 Logical 

No longer used 

LTSV 

In 

1 Logical 

.TRUE. = There is a TSV for 



this payload 




. FALSE. « No TSV 

$N 



The statement in the calling 
program to which control is 
passed if an abnormal exit 
is made from subroutine 
SOLID or LIQUID 

• Data In/Out 




Labeled COMMON (refer 

to the labeled COMMON description section): 

Block name 


Input 

Output 

Cl 


2001-2600 

2801-3600 

7201-7800 


C2 


2,3,40 

4-32 

C3 


1 

2-10 

C6 


1-60,91-105 
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Block name 

Input 

Output 

CIO 

1-6 

2,7,11-25 

C32 

1-3 



METHOD 

If LTSV » .FALSE, the program returns with no action. If LTSV » .TRUE, 
the total down weight of the payloads Is calculated and the AV computed 
for the required altitude and Inclination. Subroutine SOLID or LIQUID 
Is called to retrieve the associated AV and AW. 


RESTRICTIONS 


• Operational 

Subroutines SOLID, LIQUID, PERM, and DLTAV are required. 
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A 




001-3 NTUGPL 


r “ 




K = L 



J = ISTUG(I) 



L = ICTUG(J) 



OVTUG(I) = DLTAV 


L. 

(K,L) 




TALTF a HA(L) 
TINCF = INCUU 
DVTFl = DVEL 
(TALTF, ROALT, 
TINCF, ROINC) 



>0 


= 0 


P0INC2 = AMAXK28.5, TINCF) 



YES 


DVTI2 = OVEUPOALT, TALTF, P0INC2, 
TINCF) 

DVTF2 = OVEL (TALTF, ROALT, TINCF, 
P0INC2) 

JFLAG = .FALSE. 
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^ NORMAL ^ 


. RETURN j 







SUBROUTINE WINCL 


IDENTIFICATION 

Name (Title) - WINCL (Wedge Angle Inclination) 

Author, Date - F. Roth and J. Williams, June 1976 

Machine Identification - UNIVAC 1110 EXEC 8 
Source Language > FORTRAN V 


PURPOSE 


The purpose of WINCL Is to compute the wedge angle between two orbital 
planes. 


USAGE 

e Calling Sequence 


CALL WINCL ( lOPT) 



Argument : 




Parameter 

name 

In/Out 

Dimension Type 

Description 

lOPT 

In 

1 I 

Initialization flag 

1 ■ Initialize 

2 * compute angle between 

orbital planes 

• Data In/Out 




Block name 


In 

Out 

Cl 


2001-2600 

2801-3600 

7201-7800 


C2 


4,9 


C3 


1-8 


C6 


1-60 

91-105 


C8 


9-36 


CIO 



1.2 


5-138 


METHOD 


Initially, the altitude and Inclination of the first orbit are saved. 
On succeeding passes, the angular difference between the previous and 
current orbits Is calculated. The total orbital change Is restricted 
so that the final orbit Is not allowed to go below 28.5^ Inclination. 


RESTRICTIONS 

None. 
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M = ISORB(l) 

L = 1C0RB(M) 

XALT =HA(L) 

XINC = INCL(L) 

POINC = AMAXK28.5, XINC) 


























SUBROUTINE WHEST 


IDENTIFICATION 

Name (Title) - VfTTEST (Weight Test) 

Author, Date - John Eggleston, August 1976 

Machine Identification - UN I VAC 1110 
Source Language - FORTRAN V 


PURPOSE 

Subroutine WTTEST checks a set of payloads to ensure that they do not 
exceed the orbiter take-off and landing capabilities. 


USAGE 


• Calling Sequence 


CALL WHEST (NPL, 

NDWNPL, IFLY, 

NEPS, NCREW, 

LWTU, LWTD) 

Arguments : 





Parameter 

name 

In/Out 

Dimension 

Type 

Description 

NPL 

In 

1 

I 

Number of payloads in the 
combination 

NDWNPL 

In 

1 

I 

Number of retrieve payloads in 
the combination 

IFLY 

In 

6 

I 

Payload ID's in a combination 

NEPS 

In 

1 

I 

Number of EPS kits for this 
combination 

NCREW - 

In 

1 

I 

Number of crewmen assigned to 
the combination 

LWTU 

Out 

4 

L 

'Weight-up' pass/fail flag for 
0-3 OMS kits 

LWTD 

Out 

4 

L 

'Weight-down' pass/fail flag 


for 0-3 OMS kits 


• Data In/Out 

Labeled COMMON (refer to the labeled COMMON description section): 
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Block name 


Output 


Input 

Cl 2201-2600 

C32 6-7 

9-16 


METHOD 


WTTEST sums the weight of full EPS kits, crewpersons, and payloads at launch, 
adds the weight of zero to three full OMS kits, and checks the launch weight 
constraints. The same is done for landing, except the OMS and the EPS kits 
are empty. 






5.4 SAMPLE INPUT/OUTPUT 


5.4.1 Sample Input 


The job stream given below Indicates the operations necessary to execute 
the MPLS. To gain a clean understanding of the Input, consult Volume 1- 
Sample User's Guide. 

Card Image Description 


9RUN JWLXIA .... 

0USE SAMPLE., FM3-L71194*SAMPLE 

0XQT SAMPLE. SAMPLE 
2 

0ADD SAMPLE. DATAIS 
1 
7 
2 

1 

80 

10 

5 

0FIN 


Run card 

Specifies an Internal file name 
for an external file name 

Starts execution 

Selects the performance vehicle 

Adds the payload model to the run 

Selects the display option 

Requests all displays 

Allows the selection of an analysl 
type 

Selects the MPLS only option 

Specifies the year of analvsis 
(1980) 

No data base options 
Termi nate 

Sign off the system 


5.4.2 Sample Output 

The printed output generated by the Input data described In section 
5.4.1 follows. 


nissiON ttOOCL 91Sf*LAV missxxxxixtuuaitxix 


NO. •NVIQM 01SC2FLJNC PAVLOAO ID 


1 

AG 

AOU RELATUTV 

a 

AE 

SNA 

3 

AC 

Sm RETRIEVE 

4 

AA 

ANPTE 

S 

AB 

SPACE TELE 

c 

AB 

ST RETRIEUE 

7 

AB 

ST REUISIT 

S 

AC 

GANNA RAV OB 

9 

AC 

GRO RETRIEUE 

It 

AC 

GRO REUISIT 

a 

AB 

X-RAV OB 

la 

AB 

XRO RETRIEUE 

13 

AB 

XRO REUISIT 

14 

AA 

EUUE 

15 

AC 

CRO 

16 

AC 

CRO RETRIEUE 

17 

AC 

CRO REUISIT 

13 

AB 

LSO 

19 

AG 

OPEN 

at 

t* 

ULBl-A 

ai 

AF 

ULBI-B 

22 

AN 

GALILEO 

23 

AJ 

SOLAR POLAR 

24 

AlC 

UOIR 

25 

730 

AK 

HALLEV-C FLV 


NM1C 

AOIMNCCfi RCLATIUITV 

SOLAR NAxinun niSSION 

SOLAR NAXINUN NISSION RCTRIEUE 

ACTIUe NAONETOSPHCRIC PART TRCR EX 

SPACE TELESCOPE 

SPACE TELESCOPE RETRIEUE 

SPACE TELESCOPE REUISIT 

GAWA RAV OBSERUATORV 

GANMA RAV OBSERUATORV RETRIEUE 

GANNA RAV REUISIT 

X-RAV OBSERUATORV 

X-RAV OBSERUATORV RETRIEUE 

X-RAV OBSERVATORY REUISIT 

EXTREHE ULTRAVIOLET EXPLORER 

COSNIC RAV OBSERUATORV 

COSniC RAV OBSERUATORV RETRIEUE 

COSNIC RAV OBSERUATORV REUISIT 

LARGE SOLAR OBSERUATORV 

ORIGIN OF PLASNAS IN EARTHS NEI6HBD 

UERV LONG BASELINE INTERFERONETER-A 

VERY LONG BASELINE INTERFERONETER-B 

GALILEO 

SOLAR POLAR 

UENUS ORBITING INAGING RADAR 
HALLEY CONET FLVBV 



RJ 

SOLAR PROSE 

IT 

AH 

A8TEROIO RDZ 

St 

AK 

MARS RET 1 

88 

AK 

RARS RET 8 

38 

AK 

RARS RET 3 

31 

AH 

ERSSS 

38 

AH 

ERBSS RET 

33 

AQ 

LTNQ MAPPER 

34 

AO 

REG H80 OR 

38 

AO 

STORMS OSS 

38 

AH 

SEOS 

37 

AR 

HALOGEN OCC 

38 

AP 

COASTAL ZONE 

39 

AV 

• •• A* m • 

48 

AV 

ADV MBEAM AR 

41 

AU 

RURAL COMM 

48 

AV 

MOBIL COMM 

43 

AW 

SERCH i RESC 

44 

AL 

LOEF 

46 

AL 

LDEF RETR 

48 

AR 

SLERV 

47 

AM 

SSST 

48 

AN 

8SKU PUR MOD 

49 

AN 

SCI &APPL MO 

58 

AM 

MAR EXP CARR 

SI 

AN 

RAT MOOUUS 

58 

AN 

LG SPACE STR 

1880 




SOLAR AROIC 

ASTIROXD RCN0CZU0U8 

NARS SARRIC RCTURN 1 

RARS SMRLE RniMN R 

RARS SARRLC RCTURN 3 

EARTH RADIATION MOOCT SATELLITE SYS 

EARTH RADIATION UJOQET SAT. SYS RETR 

LIGNTNINQ RAPPER 

REGIONAL WATER QUALITY MONITOR 

SEVERE STORMS OBSERVATION SYSTEM 

SYNCHRONOUS ENVIRONMENT OBS SATELLIT 

HALLOGCN OCCULTATION 

COASTAL ZONE MONITOR 
• •••»» « • 

ADVANCED HULTIBEAM ARRAY 

RURAL COMMUNICAnONS 

MOBIL COMMUNICATIONS 

SEARCH AND RESCUE 

LONG DURATION EXPOSURE PACICLTY 

LONG DURATION E)MSURE FACILITY RETR 

SHUTTLE LAUNCHED ENTRY RESEARCH VEHI 

SPACE STRUCTURE SYSTEM TECHNOLOGY EX 

2S KU POWER MODULE 

SCIENCE AND APPUCATXONS MOOUUS 

MATERIALS EXPERIMENT CARRIER 

MATERIALS MODULES 

LARGE SPACE STRUCTURES 
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MO, 

INCL 

tea 

CQ 

LAUNCH 

ICN8TH« 

FT. 

LAUNCH 

UT.INCL. 

AOAtrea 

A0AFTC8 

UT.«Lli 

PUT 

i 

9t.t 

.t 

6.3 

11.8 

1633.6 

1433.8 

0 

a 

at.i 

.t 

18.8 

81.7 

11788.8 

4688.8 

0 

a 

88.5 

.8 

18.8 

81.7 

4588.8 

11788.8 

R 

4 

88.5 

.t 

6.6 

11.3 

6578.8 

2258.8 

D 

S 

88.5 

.t 

ai.5 

43.8 

23531.3 

28944.8 

0 

s 

88.5 

.t 

ai.s 

43.8 

.8 

28944.8 

R 

7 

88.5 

.t 

5.8 

18.8 

5888.8 

5888.8 

S 

a 

at.s 

.t 

16.8 

33.6 

25788.8 

4888.8 

D 

9 

88.5 

.t 

16.8 

33.6 

4888.8 

19488.8 

R 

It 

at.s 

.t 

5.8 

18.8 

5888.8 

5888.8 

S 

n 

88.5 

.t 

as. a 

58.6 

31788.8 

4888.8 

R 

la 

88.5 

.t 

as. a 

58.6 

4888.8 

25488.8 

R 

la 

as.5 

.t 

S.8 

18.8 

5888.8 

5888.8 

$ 

14 

88.5 

.t 

1.5 

3.8 

684.2 

538.8 

D 

15 

88.5 

.t 

17.3 

34.6 

25788.8 

4888.8 

D 

16 

28.5 

.t 

17.3 

34.6 

4888.8 

19488.8 

R 

17 

88.5 

.t 

5.8 

18.8 

5888.8 

5888.8 

S 

18 

28.5 

.t 

29.8 

59.6 

32788.8 

4888.8 

D 

19 

28.5 

.t 

5.6 

11.3 

7618.8 

2258.8 

D 

at 

88.5 

.t 

13.8 

27.6 

54728.8 

6924.8 

D 

ai 

28.5 

.8 

13.8 

87.6 

54728.8 

6924.8 

D 

aa 

28.5 

.t 

22.3 

44.7 

65888.8 

6591.8 

D 

aa 

28.5 

.t 

18.5 

37.8 

62687.8 

6591.8 

D 

34 

28.5 


e 

41 A 

ClA'l'l A 

6924.8 

D 

as 

28.5 

it 

24.8 

48.8 

65888.8 

6591.8 

D 

as 

28.5 

.t 

24.8 

48.8 

62657.8 

6591.8 

D 

a7 

28.5 

.t 

24.8 

48.8 

65888.8 

6591.8 

D 

as 

28.5 

.t 

24.8 

48.8 

65888.8 

6591.8 

D 

89 

28.5 

.t 

24.8 

48.8 

65888.8 

6591.8 

D 

at 

28.5 

.t 

24.8 

48.8 

65888.8 

6591.8 

D 

31 

56.8 

.8 

9.8 

19.7 

18888.8 

4588.8 

D 

aa 

56.8 

.8 

9.8 

19.7 

4588.8 

9833.8 

R 

33 

28.5 

.8 

5.6 

11.3 

7318.8 

2258. 8 

0 

34 

28.5 

.8 

5.6 

11.3 

7318.8 

2258.8 

D 

35 

28.5 

.8 

5.6 

11.3 

7318.8 

2258.8 

D 

36 

28.5 

.8 

11.4 

22.8 

15275.8 

3588.8 

0 

37 

56.8 

.8 

3.7 

7.5 

627.8 

558.8 

D 

38 

28.5 

.8 

11.2 

22.5 

16168.8 

3888.8 

0 

39 

28.5 

.8 

13.7 

87.5 

16368.8 

3888.8 

D 

4t 

88.5 

.8 

13.7 

27.5 

16368.8 

3888.8 

D 

41 

28.5 

.8 

S.4 

18.8 

7473.8 

2258.8 

0 

4a 

28.5 

.8 

13.7 

27.5 

16396.8 

3888.8 

D 

43 

28.5 

.8 

5.4 

18.8 

7468.8 

22S8.8 

S 

44 

28.6 

.8 

15.8 

38.8 

22588.8 

28888.8 

0 

46 

28.5 

.8 

15.8 

38.8 

.8 

28888.8 

R 

46 

38.5 

.8 

S<8 

18.8 

5788.8 

6888.8 

0 

47 

28.5 

.8 

5.8 

18.8 

9128.8 

8888.8 

3 

48 

28.5 

.8 

38.8 

68.8 

38147.5 

27888.8 

3 

49 

28 . 5 

.8 

5.8 

18.8 

16958.8 

15888.8 

3 

St 

28.5 

.8 

5.8 

18.8 

114M.8 

18888.8 

3 

SI 

5S6» 

28.5 

.8 

s.e 

18.8 

13628.8 

12888.8 

3 
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FlIOHTI FIR VCFR 


110. 1911 lilt 1913 1914 1918 1818 1917 1918 1989 lS9i 1991 1998 1993 


1 

8 

3 

4 
6 
8 

7 

8 
9 

18 

11 

12 

13 

14 

15 

16 

17 

18 
19 
28 
21 
22 

23 

24 

25 

26 

27 

28 
29 
38 

31 

32 

33 

34 

35 

36 

37 

38 

39 
48 

41 

42 

43 

44 
46 

46 

47 

48 

49 
58 
51 

732l> 


8 

1 

8 

8 

1 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

A 

V 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

1 

8 

8 

8 

1 

8 

1 

8 

8 

1 

1 

i 

8 


8 

8 

8 

8 

8 

8 

1 

1 

8 

8 

8 

8 

8 

1 

8 

8 

8 

8 

1 

8 

8 

8 

8 

i 

8 

8 

8 

8 

8 

8 

1 

1 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

1 

1 

1 

8 

8 

1 

1 

8 


8 

8 

1 

8 

8 

8 

1 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

1 

8 

8 

8 

8 

A 

V 

8 

8 

8 

8 

8 

8 

1 

8 

8 

I 

8 

8 

8 

1 

8 

1 

8 

8 

8 

1 

8 

1 

1 

8 

1 

8 

1 


8 

1 

8 

8 

8 

8 

1 

8 

1 

8 

1 

8 

8 

8 

1 

8 

8 

8 

8 

8 

8 

8 

8 

A 

» 

8 

1 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

1 

1 

1 

8 

1 

8 

2 


8 

1 

8 

8 

8 

1 

8 

8 

8 

1 

8 

8 

1 

8 

8 

8 

1 

8 

8 

8 

1 

8 

8 

A 

V 

8 

8 

8 

8 

8 

8 

8 

1 

8 

8 

8 

1 

8 

8 

8 

8 

8 

8 

8 

1 

8 

8 

8 

8 

1 

8 

2 


8 

8 

1 

8 

1 

8 

8 

8 

1 

• 

8 

8 

1 

8 

1 

1 

8 

1 

8 

8 

8 

8 

8 


8 

8 

1 

1 

1 

8 

8 

8 

8 

8 

8 

1 

8 

1 

8 

1 

• 

8 

1 

8 

8 

8 

1 

8 

2 


2 

1 

8 

8 

8 

8 

1 

1 

8 

8 

8 

1 

8 

8 

1 

8 

8 

8 

8 

8 

8 

8 

8 

A 

V 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

1 

8 

8 

1 

8 

8 

8 

8 

1 

1 

1 


8 

1 

8 

8 

8 

8 

8 

8 

8 

1 

1 

8 

8 

8 

8 

8 

1 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

1 

8 

8 

1 

8 

8 

8 

8 

8 

1 

8 

8 

8 

1 

8 

2 


8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 




p. 

*4 . i 
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4 M a 


I ta 3 


I <4 a 


SCQUBCI NO..MYIOAO Ifi.PnT 

1 C 1 I 19 a a 

7 M a I u 3 9 

OtFlICATO MYLOADt 
MVLOM) ID. Tints MJPLICATta 

•II S3 I Ml 
SCQ^MVLOAO NO.TUQ 

1 57 • a 59 • 

< 14 • 7 N • 


•1 3 

91 1 


a SI 

I n 


« 


4 SI 
9 92 


FIT. HO. 
PAVUMOSt 


LAUHCH SITE! CTD 


QOCS 


57 


SHUTTLE SCQUENCC 57-D 
ALTITUOC 169. 

INCIIHATIOH 28.S 

TOTAL LENGTH JPt 22. TOTAL WEIGHT UPt 13994.6 
PAYLOAD NAAGIHi 326M. LOAD FACTOPt .21529 
SHUTTU DCLTAUt 511. 


FLT. HO. 
PAYLOADS t 


LAUNCH SITE I ETR 


INTELSAT U 
59 

SHUTTLE SEQUENCE 59-D 
ALTITUDE 

INCLINATION 28.5 

TOTAL LENGTH UPt 32. TOTAL UEIGHT UPt 16343.6 
PAYLOAD NARGINt 326M. LOAD FACTQRt .25143 
SHUTTU DELTAUt 581. 


FLT. HO. 
PAYLOADS I 


LAUNCH SITES ETR 


TDRSS/UESTAR 
616«1 

SHUTTU SEQUENCE 81-D 
ALTITUDE 166. 

INCLINATION 28.5 

TOTAL LENGTH UPs 35. TOTAL WEIGHT UPi 57S33.6 
PAYLOAD NARGINi 7367. LOAD FACTORS .88666 
SHUTTU DELTAUS SSI. 


FLT. NO. 
PAVlOADSt 


LAUNCH SITES ETR 


TDRSS4<ESTAR 
61662 

SHUTTU SCQUENCC 61-D 
ALTITUOC 166. 

INCLINATION 28.5 

TOTAL LENGTH UPs 35. 
PAYLOAD NARGINI 7367. 
SHUTTU DELTAUS 581. 


TOTAL WEIGHT UP» 57633.6 
LOAD FACTORS .88866 


899t> 


5 83 6 
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FIT, 

PAVUAOft 


LMJNCN SlTIt rR 


RCA 


SNUmi fCQUCNCI M-0 
ALTtTUK IM. 

IRCLINATIOM M.f 

TOTAL LDWH (JAt II. TOTAL ytlCHT 

AAVLOAD NAMINi IMM. LOAD FACTOR! 

SNUTTU KLTAUt 111. 


UAt 9378.1 
. 14^3 


FLT. HO. 
AAVlOAOSt 


LAUNCH SZTCt ETR 


SIS 
S3M1 

SHUTTLE SCQUCHCe €3-0 
ALTITUDE 161. 

INCLINATION 38.5 

TOTAL LENGTH UAt 31, TOTAL UEICHT 

PAYLOAD NARCIN* 32ARf. LOAD FACTOR! 

SHUTTLE DCLTAU! S81. 


UP! 9378. I 
.14433 


FLT. NO. 
PAYLOADS! 


LAUNCH SITE! ETR 


SIS 
63A08 

SHUTTLE SEQUENCE €3-0 
ALTITUDE lii. 

INCLINATION 38.5 

TOTAL LENGTH UPt 31. TOTAL UEICHT 

PAYLOAD NAAGINi 33M€. LOAD FACTOR! 

SHUTTLE DCLTAU! S81. 


UPi 9375.0 
. 14433 


FLT. NO. 
PAYLOADS! 


LAUNCH SITE! ETR 


SYNCON IV 
84 

SHUHLE SEQUENCE 64-D 
ALTITUX ISO. 

INCLINATION 38.5 

TOTAL LENGTH UPt 13. TOTAL XIOHT 

PAYLOAD NARGINl 33000. LOAD FACTOR! 

SHUTTU DCLTAU! Sll. 


UP! 13844.3 
.31399 


FLT. NO. 
PAYLOADS! 


LAUNCH SITE! ETR 


TCLESAT 

80001 

SHUTTLE XQUCNCE 80-D 
ALTITUX ISO. 

INCLINATION 38.5 


TOTAL LENGTH UPt 18. 
PAYLOAD NARGlNt 33000. 
SHUTTU DCLTAU! 581. 


TOTAL XIQHT 
LOAD FACTOR! 


UPi 8531. 0 
.13109 


9S4!> 
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1 


LMJNCH SITtt rm 


FIT. HO. 

pmjotMi 


QOCf 


tr 


SHUTTLE StOUOtCC 6T>D 
AIJITUBC ISt. 

:nclxmitioh at.s 

TOTHL LCnCTH UHi 28. TOTAL UCZQHT UPt 13M4.0 
MYLOAO HMQZNi 32M0. LOAD FACTOSt .81528 
SNUTTU OCLTAUI S81. 


FLT. HO. 
PAVLOAOSt 


LAUHCH SITCl ET8 


TDA$5/UC$TA8 
SlHl 

SHUTTU SCQUCHCe €1-0 
ALTZTUK 180. 

ZNOLINATION 88.5 

TOTAL IXHOTH UAl 35. TOTAL UEIQHT UPl 57633.0 
PAVLOAO PMMINi 7367. LOAD FACTOAt .88666 

SHUTTLE OCLTAUi 581. 


FLT. HO. 
PAVLOADSt 


LAUNCH SZTCt ETR 


TDfiSS/^STAR 

61008 

SHUTTLE SE9UE.NCE ii -Z 
ALTITUDE 160. 

ZHCLZNATZON 88.5 

TOTAL LENCTH UPt 3$. TOTAL UEIOHT UP< 57633.0 
PAYLOAD HARGINl 7367. LOAD FACTORS .88666 
SHUTTU OELTAUt 581. 


FLT. NO, 18 


LAUNCH SITES ETR 


PAYLOADS s PIA SLl Lfl^P 

98 

SNUTTU SEQUENCE 98-A 
ALTITUDE 135. 

INCLINATION 57.0 

TOTAL LEHQTH UPS 60. TOTAL UNCTH DOUNs 60. 
TOTAL UEIQHT UPt 3SOOO.O TOTAL UEICHT OOUNI 38000.0 
PAVLOAO HARQINS 0. LOAD FACTORS 1.60000 

SHUTTU OCLTAUS 466. 


FLT. HO. 
PAVLOADSt 


LAUNCH SITES ETR 


INTELSAT U SIS 
SO 63002 
SHUTTU SEQUENCE S9-D 63-D 

ALTITUDE 160. 160. 

INCLINATION 88. S 28. S 


TOTAL LENCTH UPS S3. 
PAVLOAO HARQZNS 32000. 
170<(S>J 


TOTAL UEIQHT UPs 2S716.0 
LOAD FACTORS .30566 
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I 


TCUMT 


FIT. m. 

FAVLOAMl KM 


UHJNCH SITU CTK 

M 


IH 

•3H1 WHi 

SNUTTLE ICQUDICC U-0 f3-D tt-D 

KLTXTUK IM. Itt. IM. 

XNOLxmrxon at.s n.s ai.s 

TOTM. lEmTM IJFl S7. TOTAL UCIQHT UFl S7S71.S 
PAVLOM) riMMINi 38tM. LOAD FAOORi .419SS 
SHUmX OClTAMt $11. 


FLT. NO. 41 


PAYLOADS < 


LAUNCH SITC< CTK 


SVNCOH IV TtLESAT 

SHUTTU SCQUCNCC*^ S^O** SS^O 

ALTXTUDC IM. IM. 

XNCLXHATION 2t.S M.S 

TOTAL lENOTN UPt SI. 

PAYLOAD PAPCINI 3BAM. 

SNUTTLE DELTAVi $81. 


IMSAT- INDIA 

82-D 
161. 

28. S 

TOTAL UCIGHT UPi 31748.2 
LOAD FACTOR t .48831 


INPUT OPTION « 

STATISTICS FOR CURRENT FLIGHT SCHEDUU 

AVERAGE NURIER OF PAYLOADS PER FLIGHT • 1.71 
TOTAL NUN8ER cF Tjcs r?ccL*:rir - ; 

TOTAL NUNBER OF INITIAL O.NS KITS REQUIRED • 8 

TOTAL NUniER OF SECOND AND THIRD ONS KITS REQUIRED 

DO YOU UAKT ANOTHER SCHEDULE 7 
It VES. 

• I NO . 

SELECT AN OPTION! ( S TO TERNINATE ) 

RUN FINISHED NORNALLY 
•8RKPT PRINTS 
E0FI1743 SCANta? 

8I> 




nrsmxmmxxixs ST^tTISTICAL Ar«ALv$i8 for I9ti immmxxxxmn 

TOTAL NUAKR Of COHIINATlONS QENCRATCOi 134 

NUniER Of FEASIIIE COHIINATIOASl 41 

mjniER Of INfEASIlLL COnilNATlOHSi IS 

TOTAL ELAPSED TIKi 8$4 

(ALL TIRES APE IN NILLISECONOS ) 

AOERAQE TIRE PER FEASIBLE CORllNATIONi 17 
AUEFAQE TIRE PER GENERATED CORBlNATIONt S 

DO you UMTT TO STORE THE FEASIBLE CORBINATION DATA? 

II HO 
It YES 


ERROR STATISTICS 

I FAILED t RISSION TYPE NOT ALLOUED 
6 FAILED 1 UP WEIGHT CONSTRAINT 
I FAILED J DOUR WEIGHT CONSTRAINT 
I FAILED t needed DEDICATED TUG 
I FAILED t NURBER OF TUG PAYLOADS > 3 
$ FAILED 1 LENGTH S WEIGHT CONSTRAINT 
36 FAILED t UP LENGTH > BAY LENGTH 

• FAILED t DOWN LENGTH > BAY LENGTH 

• FAILED t DISCIPLINE RIX 

0 FAILED J SEQUENCE DEPENDENT TESTS 
R FAILED > rLS wEIunl * 

44 FAILED « REDUNDANT PAYLOAD 
9 FAILED > INCLINATION RANGE > .5 

SPECIFY UALUE INDEX OF FLIGHTS TO BE USED IN TRAFFIC RODEL SELECTION 

1981 OCCURRENCE TABLE 

PAYLOAD FEASIBLE COMBINATIONS 


1) 

57 

1 

13 

14 

15 

16 

17 

18 

34 

35 

36 

37 

38 

S) 

59 

2 

13 

19 

20 

21 

22 

23 






3) 

61M1 

3 












4) 

siees 

4 












5) 

62 

5 

14 

19 

24 

25 

26 

£7 

34 

35 

39 

40 

41 



42 

43 

44 










6) 

63M1 

6 

15 

24 

29 

36 

40 

45 

47 





7) 

63M2 

7 

20 

28 

30 

39 

41 

46 






8) 

64 

8 

16 

21 

25 

28 

31 

32 

34 

36 

37 

38 

39 



42 

43 

45 

46 

48 








9) 

80001 

9 

17 

26 

31 

35 

40 

44 

47 





11) 

80002 

10 

22 

29 

33 

37 

42 

45 

48 





11) 

82 

11 

18 

23 

27 

30 

32 

33 

38 

41 

43 

44 

46 


47 48 


IS) SS IS 

SPECIFY SCLUTIOH STRATEGY FOR TRAFFIC MODEL SOLUTION 
TRAFFIC RODEL CONTAINS THE FOLLOWING 7 MISSIONS 

1 3 4 12 20 40 

THE SELECTED TRAFFIC MODEL UALUE IS 7 
DO YOU WISH TO SEE INFOFiriATION ON THESE MISSIONS? 

164St> 
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